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ABSTRACT 

The  objective  of  this  study  is  to  improve  three  primary 
aspects  of  static  structural  testing  at  the  Naval 
Postgraduate  School.   First,  computer  controlled  digital 
multimeters  simultaneously  display  twelve  data  locations  on 
the  structure  while  the  test  is  in  progress.   Second, 
immediate  interaction  is  permitted.   If  some  unexpected  data 
occurs  during  the  testing,  the  test  plan  can  be  modified  to 
focus  in  on  any  area  of  interest.   Third,  the  operator  is 
presented  with  two  different  real-time  visual  inter- 
pretations of  the  strain  gage  data  reduced  to  the  strain 
tensor  components  with  animated  deformations. 

These  objectives  contribute  to  enhancing  the  real-time 
correlation  between  input  load  and  output  structural 
response  in  terms  of  direct  physical  measurements  rather 
than  indirect  abstract  tensor  components. 
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I.   INTRODUCTION 

During  an  aircraft's  development  phase,  prior  to  mass 
production,  the  structural  strength  of  a  component  can  be 
determined  by  employing  destructive  testing  techniques. 
Destructive  testing  is  used  to  determine  the  performance 
envelope  that  will  serve  as  an  operational  limit  throughout 
the  structure's  useful  life.   However,  this  type  of  testing 
is  not  feasible  for  in-service  structures  or  as  a  monitoring 
process  for  determining  performance  degradation  with 
fatigue. 

From  an  accidental  overstress  or  due  to  simple  fatigue 
with  aging,  the  need  to  compare  actual  performance  with  that 
predicted  or  specified  in  the  contract  can  arise.   Several 
non-destructive  evaluation  techniques  include  dye  penetrant, 
eddy  current  and  ultrasound.   However,  these  techniques  are 
limited  in  that  they  can  only  identify  failure  and  can  not 
determine  over-stresses  or  gradual  degradations  in 
performance.   Dynamic  response  testing  and  static  load  and 
deformation  tests  can  locate  these  types  of  faults.   If  the 
results  of  a  particular  test  are  not  within  the  specified 
envelope,  the  response  testing  of  the  full  structure  can 
assist  in  focusing  in  on  the  failed  zone  or  component. 
Maintenance  action  can  then  concentrate  on  that  area  and  a 
reduction  of  cost  and  down  time  will  result.   Therefore,  a 
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working  knowledge  of  non-destructive  response  methods  for 
determining  strength  or  structural  integrity  of  aircraft 
components  is  essential. 

The  need  to  upgrade  the  Naval  Postgraduate  School 
Aeronautics  Department  Structures  Laboratory  was  the 
motivation  for  this  study.   The  Aeronautics  Department  has  a 
section  of  P2V  wing  which  was  being  used  for  laboratory 
static  structural  tests  in  conjunction  with  several  core 
courses.   The  former  data  acquisition  system  consisted  of  a 
patch  panel  with  a  manual  switching  network  connected  to  a 
single  voltmeter.   Test  operators  were  capable  of  observing 
one  data  point  at  a  time.   The  data  was  recorded  manually. 
After  all  data  points  had  been  taken,  the  tedious  data 
reduction  process  commenced.   Data  interpretation  and 
visualization  could  only  be  done  after  the  data  had  been 
completely  reduced  which  frequently  occurred  days  after  the 
test  had  been  completed. 

The  purpose  of  this  thesis  was  to  modernize  the  data 
acquisition  and  control  system,  and  not  include  the  content 
of  the  static  test.   Therefore,  the  decision  was  made  to 
retain  the  P2V  wing.   While  the  P2V  has  not  seen  active 
service  since  the  1970s,  the  principle  of  construction  in 
it's  wing  structure  is  still  being  used  throughout  the 
aircraft  industry.   Therefore,  the  educational  content  of 
the  structural  testing  is  still  appropriate. 


This  thesis  was  undertaken  with  several  goals  in  mind. 
Improvements  would  include  the  opportunity  to  simultaneously 
observe  multiple  data  points  during  the  static  testing 
procedure.   The  operator  would  be  given  the  chance  to 
interactively  change  the  test  plan  at  any  time  to 
investigate  an  area  highlighted  by  the  real-time  data 
reduction  and  display.   Multiple  interpretations  of  the 
reduced  data  would  be  available  while  the  static  test  was 
still  in  progress  and  decisions  could  be  made  affecting  the 
testing  plan  based  on  those  interpretations. 
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II.   BACKGROUND 

The  P2V  wing  section  was  obtained  in  the  late  1950s  from 
the  storage  yard  at  Davis-Monthan  Air  Force  Base.   It 
measures  three  hundred  and  eighty-one  inches  from  the 
outboard  side  of  the  starboard  engine  nacelle  to  the  wing 
tip,  wing  station  192  to  station  573  [Ref .  1] .   One  hundred 
and  eight  paper  backed  wire  strain  gages  were  mounted  on  the 
wing  surface  and  interior  structural  members.   These  gages 
were  in  single  elements  and  in  three-element  forty-five 
degree  rectangular  rosettes.   A  manual  switching  network 
with  an  analog  voltmeter  was  used  for  the  strain 
measurements.   The  wing's  load  application  structure 
consisted  of  hydraulic  actuators  capable  of  applying  pure 
torsional  loads  only.   The  load  monitoring  system  was  analog 
dynamometers.   All  data  acquisition,  reduction  and  analysis 
was  done  manually.   In  the  years  since  the  1950s, 
approximately  one  third  of  the  installed  strain  gages  had 
deteriorated. 
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III.   MODERNIZATION  PROCEDURE 

A .   HARDWARE 

An  IBM  PC/AT  equipped  with  a  National  Instruments 
General  Purpose  Interface  Bus  (GPIB)  is  the  center  piece  for 
this  modernization  approach.   The  GPIB  installs  into  one  of 
the  computer's  expansion  slots  and  functions  as  a  link  or 
interface  system,  through  which  interconnected  electronic 
devices  communicate.   In  this  application  the  electronic 
devices  are  digital  voltmeters  and  they  were  connected  to 
the  GPIB  in  a  linear  configuration  (daisy  chained)  by 
shielded  twenty-four  wire  conductor  cables  with  both  a  plug 
and  receptacle  connector  at  each  end. 
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Figure  3.1   Linear  GPIB  Connection  of  Digital  Voltmeters 
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In  order  to  achieve  the  high  data  transfer  rate  that  the 
GPIB  was  designed  for  between  connected  electronic  devices 
and  the  bus,  reference  2  lists  the  physical  limitations  for 
all  hardware  attached  to  the  National  Instruments  GPIB. 
However,  the  data  transfer  rate  of  the  GPIB  was  not  limited 
by  physical  constraints  in  this  application,  but  by  a 
conflict  created  by  the  digital  voltmeters  command  sequence 
which  will  be  discussed  later. 

The  GPIB  comes  equipped  with  an  initialization  routine 
which  must  be  run  prior  to  any  bus  utilization.   This 
routine  requires  bus  address  assignments  and  the  naming  of 
all  devices  connected  to  it.   It  then  builds  a  file  called 
GPIB.COM  which  must  be  on  the  default  directory  during  boot- 
up.   When  the  computer  is  brought  on  line,  the  automatic 
CONFIG.SYS  procedure  activates  the  GPIB.COM  file  and  the  bus 
settings  are  initialized. 

All  hardware  connected  to  any  GPIB  must  have  the  IEEE- 
488  interface  installed.   This  interface  is  essential, 
because  it  contains  the  dip  switches  necessary  for  device 
coding  and  it  has  the  required  cable  receptacle.   Those  dip 
switch  setting  constitute  the  device's  coded  name  and  are 
inputted  on  the  GPIB.COM  file.   It  is  through  those  dip 
switch  settings  and  the  initializing  GPIB.COM  procedure  that 
the  computer  recognizes  the  type  of  device  and  the  location 
of  the  device  within  the  linear  chain. 
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There  are  twelve  Fluke  8840A  multimeters  connected  to 
the  GPIB.   All  twelve  have  the  required  IEEE-488  interface 
option  installed.   Reference  3  contains  further  information 
on  the  IEEE-488  interface.   The  Fluke  meters  were  chosen  for 
their  accuracy,  speed  in  measurement  and  primarily  their 
ease  in  programming.   The  8840A  has  a  set  of  device- 
dependent  commands  which  correspond  directly  to  the  front 
panel  controls  and  can  be  sent  to  the  meter  via  the  GPIB  bus 
when  in  the  REMOTE  mode  of  operation  [Ref.  4].   The 
multimeter  performs  the  analog  to  digital  conversion  of  all 
measurements  and  the  GPIB  can  obtain  the  meter  reading 
directly. 

A  desirable  feature  of  the  Fluke  8840A  is  the  OFFSET 
function  which  sets  a  relative  datum  from  which  all 
subsequent  readings  are  taken.   It  was  this  OFFSET  function 
that  presented  the  data  transfer  problem  to  the  GPIB.   The 
GPIB's  data  transfer  rate  is  so  rapid  that  if  any  attempt  is 
made  by  the  computer  to  set  the  OFFSET  first  and  then 
trigger  a  reading  in  the  same  command  string,  an  "ERROR  32" 
occurs.   "ERROR  32"  indicates  that  OFFSET  was  selected  when 
a  reading  was  unavailable  or  overrange.   The  OFFSET  feature 
must  be  sent  exclusive  of  any  trigger  command  in  a  single 
instruction  string.   The  multimeter's  output  received  by  the 
GPIB  is  in  the  form  of  an  eleven  character  alphanumeric 
string  and  before  any  arithmetic  operations  can  be  performed 
on  it,  conversion  to  a  numerical  string  is  required. 
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Figure  3.2   Load  Application  Structure 
The  entire  load  application  structure  was  dismantled  and 
a  new  frame  constructed.   The  frame  is  made  of  fifteen  and 
ten  foot  length  beams  of  one-half  inch  alloy  aluminum 
attached  by  bolts  to  the  floor.   The  frame  is  designed  to 
provide  several  load  options:  pure  bending,  pure  torsion  or 
a  combination.   Due  to  the  simplicity  of  the  connecting 
hardware,  reconfiguring  for  different  load  applications  will 
take  minimal  time.   All  connecting  hardware  was  designed  or 
specified  to  withstand  a  maximum  of  four  thousand  pounds  of 
force  in  tension.   The  wing  structure's  load  limitation  is 
two  thousand  pounds  with  the  front  spar  web  installed.   A 
stability  analysis  was  done  on  the  frame  and  those  results 
are  contained  in  Appendix  C. 
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Figure  3.3   Load  Application  Structure  Configurations 
A  Baldwin-Lima-Hamilton  load  cell  was  installed  in 
series  with  each  of  the  two  hydraulic  actuators.   These  load 
cells  provide  the  load  monitoring  transducer  when  connected 
to  separate  digital  voltmeters  at  the  load  cell  panel.   The 
meters  were  calibrated  to  read  directly  in  pounds  of  force 
tension.   Appendix  B  contains  the  calibration  statistics  and 
procedure.   These  meters  can  not  be  read  directly  by  the 
computer  and  therefore  must  be  manually  monitored  during 
loading  and  their  results  entered  into  the  program  when 
prompted.   Load  cells  one  and  two  are  currently  connected  to 
the  structure.   The  number  three  load  cell  is  a  spare  or  it 
can  be  used  as  a  third  load  monitor  in  different  multiload 
configurations . 
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SSu^                                                      SB^                                                 i5S^ 

e                  m                e 

i                                         a                                     a 

BRIDGE    BALANCE 
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Figure  3.4   Load  Cell  Monitoring  Panel 
Approximately  thirty  of  the  mounted  paper-backed  wire 
strain  gages  had  failed  since  the  1950s.   These  were  removed 
and  operable  paper-backed  wire  gages  were  installed  in  their 
locations.   Additionally,  newer  generation  epoxy-backed  foil 
gages  were  installed  in  strategic  locations  internal  to  the 
wing  structure  on  the  hat  and  stringer  sections.   Appendix  A 
contains  the  strain  gage  location  information.   These  new 
gages  were  located  adjacent  to  the  older  style  gages  in 
order  to  provide  comparisons  between  gage  types  and  the 
different  lay-ups  of  the  rosettes. 

The  new  strain  gage  rosettes  were  purchased  specifically 
to  optimize  measurements  in  shear  and  they  will  provide  the 
highest  resolution  in  determining  the  two  Mohr's  circle 
invariants;  radius  and  circle  center  location  along  the  X- 
axis.   Perry/Lissner  and  Beer/ Johnston  provide  further 
information  on  the  Mohr's  circle  interpretation  of  strain 
gage  rosette  data  [Refs.  5,  6]. 
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Figure  3.5   Strain  Gage  Lay-up  Mohr's  Circle  Resolutions 

B.   SOFTWARE 

The  National  Instruments  GPIB  comes  equipped  with  a 
handler  written  in  IBM  BASICA.   BASIC  was  chosen  as  the 
controlling  software  for  it's  general  acceptability,  ease  in 
programming  and  powerful  color  graphics  capability.   The  IBM 
PC/AT  is  equipped  with  an  Enhanced  Graphics  Adapter  (EGA) 
and  Enhanced  Color  Monitor.   BASIC  is  one  of  only  a  few 
programmable  languages  which  currently  utilizes  the  screen 
resolution  and  color  offered  by  this  combination;  640  screen 
pixels  in  horizontal,  350  screen  pixels  in  vertical,  sixteen 
colors. 
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The  BASIC  program  consists  of  three  separate  programs 
which  are  linked  together  by  the  CHAIN  statement;  P2V- 
CAL.BAS,  P2V-L0AD.BAS  and  P2V-ANAL.EXE.   All  three  program 
listings  are  contained  in  Appendix  D.   These  programs 
perform  five  major  procedures: 

(1)  Updating  the  installed  strain  gage's  resistance  in 
the  hard  disk's  memory. 

(2)  Calculating  a  strain  gage's  calibration  factor  based 
on  a  shunt  resistance  measurement. 

(3)  Loading  the  wing  and  measuring  the  strain  gage  output 
with  graphical  analysis  of  the  results. 

(4)  Graphically  analyzing  the  last  set  of  data  displayed. 

(5)  Adding,  deleting  or  replacing  strain  gage  hardware 
installed  on  the  wing. 


Exit 
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Start 
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Figure  3.6   Controlling  Software  Program  Structure 
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Procedures  ;i;  chrcugh   2;  should  be  done  sequentially. 
Hcvever,  since  che  result:  cf  each  procedure  is  scored  en  the 
ir.cerr.al  hard  cisk,  all  chree  r.eed  r.oc  be  oor.pleced  in  a 
single  session.   ?rooedure  (4)  exiscs  primarily  to 
demonstrate  the  graphics  portion  cf  the  program.   Procedure 
(5)  is  to  be  used  only  when  changing  the  strain  gage 
configuration. 

The  graphical  display  of  the  scrain  gage  data  comes  in 
ewe  forms;  the  traditional  y.chr '  s  circle  and  a  pictorial 
recreser.cacicr.  cf  a  area's  surface  element  deformation. 
(See  7ig.  2.7)   The  surface  element  deformation  display 
preser.es  a  square  depiccir.g  an  element  of  wing  surface 
before  lead  application  and  the  deformed  square  by  the 
applied  load  as  calculated  from  the  strain  gage  rosette  at 
che  respective  location.   In  order  to  better  observe  changes 
in  che  loaded  element,  an  isotropic  strain  multiplier  is 
used  if  che  scrain  level  is  below  five  tenths  of  a  micro- 
inch  per  inch.   Park's  Interactive  Microcomputer  Graphics 
contains  che  information  necessary  to  write  algorithms  that 
accurately  display  the  elongations  and  rotations  associated 
v;ich  che  strains  experienced  by  che  wing's  structural 
members  en  che  computer  monitor  ;?.ef.  7". 

Z'r.e   most  difficult  obstacle  encountered  in  programming 
was  interfacing  the  I3M  PC/AT  with  the  Hewlitt  Packard 
Laserjet  printer.   The  Laserjet  does  not  have  an  installed 
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Figure  3.7   Sample  Print  of  Graphical  Analysis  of  Strain 
Gage  Data 
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screen  graphics  print  capability.   As  a  result,  an  after- 
market  screen  utility  GRAFLASR  [Ref.  8]  was  purchased  to 
perform  this  necessary  function.   However,  the  screen  print 
utility  was  not  compatible  with  IBM  BASICA  in  the  highest 
possible  screen  resolution  mode.   Therefore,  in  order  to  get 
high  resolution  graphics  printing  directly  from  the  screen 
display,  the  program  P2V-ANAL.EXE  was  written  in  the  form  of 
a  compiled  BASIC  executable  file.   It  was  compiled  using 
Microsoft's  QuickBASIC  compiler  version  2.0  [Ref.  9].   When 
graphical  analysis  is  selected  immediately  after  the  print 
of  the  tabularized  loading  data,  the  program  stores  the 
current  applicable  data  on  the  hard  disk.   Then  IBM  BASICA 
is  terminated  and  the  compiled  executable  program  takes  over 
and  executes  the  screen  graphics  commands  after  it  inputs 
the  necessary  data  from  the  hard  disk.   The  screen  print  is 
not  attempted  in  the  BASICA  environment  but  under  DOS,  the 
normal  operating  system's  environment  and  no  conflict 
exists. 

Initially,  the  Laserjet  distorted  the  vertical  axis 
during  the  screen  print.   GRAFLASR 's  printer  driver  software 
file  for  the  Hewlitt-Packard  Laserjet  had  to  be  modified 
with  respect  to  the  vertical  axis  print  scale  in  order  to 
get  the  exact  dimensional  proportions  displayed  on  the 
screen  printed  on  the  paper. 


22 


IV.   CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

An  IBM  PC/AT  equipped  with  a  GPIB  connected  to  strain 
measuring  devices  can  provide  a  real-time  data  acquisition 
and  display  system  for  complex  static  structural  tests. 
Software  can  be  written  to  provide  various  graphical 
representations  of  the  results  giving  several  options  to  the 
operator. 

B.  RECOMMENDATIONS 

The  most  time  consuming  task  in  the  static  testing 
procedure  involves  the  optical  deflection  measurement  system 
currently  installed.   Ten  rulers  are  suspended  from  the 
wings  underside  at  known  wing  stations.   They  are  sighted 
with  a  surveyor  before  and  after  loading  to  determine 
deflections.   This  system  is  replete  with  opportunities  for 
human  error.   One  solution  would  be  the  installation  of  a 
low  power  laser  with  several  sensor  stations  along  the  wing 
to  measure  the  beam's  deflections.   Also,  the  connection  of 
simple  deflection  gages  to  various  stations  along  the  wing 
via  cable  system  would  give  highly  accurate  readings  with 
the  possibility  of  human  error  greatly  reduced. 

Due  to  simplicity  of  the  load  application  frame's 
construction  and  the  availability  of  additional  parts,  it 
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would  be  easily  expanded  to  adapt  to  larger  and  more  complex 
loading  configurations.   Multiple  bending  and  torsional 
loads  along  the  wing  and  an  aerodynamic  load  could  be 
possible. 
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Figure  4.1  Possible  Loading  Configurations 
The  IBM  PC/AT  is  expandable  to  many  different 
applications.   The  Aeronautics  Department  has  a  commercial 
software  program  called  ENTEK  [Ref.  10]  which  is  capable  of 
interpreting  dynamic  response  data.   Purchase  of  a  precision 
hydraulic  vibration  rig  capable  of  selectable  frequencies 
and  amplitudes  or  the  simple  deflection/release  apparatus 
shown  in  Figure  4.1  could  expand  the  current  topics  of 
evaluation  to  include  some  areas  of  dynamic  response 
testing. 
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APPENDIX  A 


P2V  WING  OPERATOR'S  GUIDE 


A.   PRELIMINARY 


Prior  to  commencing  this  experiment,  two  decisions  must 
be  made.   First,  the  type  of  load  that  will  be  applied  to 
the  wing;  pure  torsion  or  pure  bending.   Second,  which 
strain  gages  will  be  monitored  on  the  wing  during  the 
application  of  that  load.   The  gages  should  be  chosen  based 
on  the  type  of  analysis  desired  and  the  load  applied. 


A-3 


AR-7-2 


UA-13-250UF 


Single  Rect.  Rosette  Delta  Rosette  Stacked  Rosette 

1  Wire  Gage  3  Wire  Gages  3  Foil  Gages  k   Foil  Gages 

120  A  120  {\  120  A        120  ft 

12  Total  32  Total  5  Total       5  Total 

Figure  l.A   Strain  Gage  Descriptions 

There  are  143  individual  strain  gages  installed  on  and 
inside  the  wing.   Most  are  in  strain  gage  rosettes  but  there 
are  12  that  are  single  element  gages.   108  are  older  wire 
gages  and  the  rest  are  newer  generation  foil  gages.  Table 
l.A  is  a  listing  of  strain  gages  by  type.   Figures  8. A,  9. A, 
10. A  and  11. A  "P2V  STARBOARD  WING,  Strain  Gage  Locations" 
contain  a  complete  description  of  gage  positions. 

CAUTION 

Twelve  gages,  all  of  the  same  type, 
should  be  monitored  during  each  program 
run.   Since  there  is  only  one  unloaded 
temperature  compensating  gage  used  to 
complete  the  Wheatstone  bridge  circuit 
for  the  twelve  loaded  gages,  any  attempt 
to  mix  strain  gage  types  will  result  in 
erroneous  data. 
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B.   SETUP 

(1)  Remove  and  stow  the  equipment  covers. 

(2)  Connect  the  desired  gages  to  the  DVM  leads  at  the 
strain  gage  peg  board.   Also,  connect  the  compensator 
leads  to  the  type  of  strain  gage  being  monitored.   The 
unloaded  temperature  compensator  gage  female  connectors 
are  in  the  lower  right  corner  of  the  upper  peg  board. 
They  are  enclosed  in  a  yellow  boarder  and  are  numbered 
147-150. 

CAUTION 

When  monitoring  rosettes,  keep  the 

rosette  gages  in  sequential  order  with 

respect  to  the  DVMs. 

Example  1:  rosette  with  gages  68,  69,  70 

connected  to  DVMs  1,  2,  3  and  then 

rosette  with  gages  21,  22,  23  connected 

to  DVMs  4,  5,  6. 

Example  2:  rosette  with  gages  136,  137, 

138,  139  connected  to  DVMs  1,  2,  3,  4 

and  then  rosette  with  gages  140,  141, 

142,  143  connected  to  DVMs  5,  6,  7,  8. 

(3)  Apply  power  to  the  following  equipment: 

-  Computer  and  Monitor.   As  the  computer  comes  up, 
it  will  commence  a  power-on  self  test.   The  self 
test  and  the  subsequent  loading  of  the  initial  batch 
file  is  automatic  and  requires  no  action  by  the 
operator.   The  monitor  has  brightness  and  contrast 
controls  directly  beneath  the  on/off  knob.   Do  not 
set  the  brightness  to  the  extreme  as  prolonged  use 
at  this  level  may  cause  permanent  damage  to  the 
screen. 


Monitor 


JCompu 


ter 


Figure  2. A 


Computer  and  Monitor  Power  Supply  Switch 
Locations 
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-  Printer.   The  printer  has  a  power-on  self  test. 
The  computer  must  be  turned  on  prior  to  the  printer 
or  a  logic  error  will  occur  in  the  printer's  self 
test.   The  printer  indicates  it's  ready  to  print 
when  the  number  00  is  in  the  status  window. 


Printer 


Figure  3. A   Printer  Power  Supply  Switch  Location 


-  DVM  Column  Master,  Individual  DVMs  and  the 
Voltage  Power  Source.  The  DVM  column  master  switch 
is  a  push  button  type  on/off  switch.   Wait  until  the 
DVM  column  cooling  fans  are  fully  up  to  speed  prior 
to  energizing  the  individual  DVMs  and  the  voltage 
source.   Only  the  right  side  of  the  voltage  source 
is  currently  being  utilized.   Do  not  adjust  the  DVMs 
or  the  voltage  source  at  this  time. 


Bridge 

Balance 

Controls 


**" _ I 


Column  Master 


Indiuidual  DUMs 


Uoltage  Source 


•.'•:•■■■•■-■■■■■•-•■ 
.ViV.ViVii.Vm ViV 


Figure  4. A   Digital  Voltmeter  Column  Power  Supply  Switch 

Locations 

-  Load  Cell  Panel  Master  and  the  Individual  DVMs. 
Do  not  attempt  to  zero  the  DVMs. 
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Figure  5. A   Load  Cell  Panel  Power  Supply  Locations 


C.  PROGRAM  EXECUTION 

The  program  (P2V)  is  stored  on  the  internal  hard  disk  so 
no  disk  loading  is  necessary.   P2V  and  all  the  utilities 
necessary  to  run  it  are  in  the  \GPIB-PC  sub-directory.   A 
batch  file  is  available  to  make  access  simple. 

(1)   At  the  system  prompt,  C>,  type  "P2V"  and  then  hit 

Enter. 

First,  the  utilities  load,  then  the  program  will  run. 
The  program  is  structured  into  five  main  procedures: 

1.  Updating  strain  gage  resistances. 

2.  Obtaining  calibration  factors  based  on  a  shunt 
resistance  measurement. 

3.  Loading  and  measuring  strains  with  a  graphical  analysis 
of  rosettes. 

4.  Analyze  the  last  set  of  load  data  which  had  previously 
been  displayed.   This  procedure  is  primarily  for 
demonstration  purposes. 

5.  Adding/deleting/replacing  strain  gages  on  the 
installation. 

Procedure  5.  is  to  be  used  only  when  changing  hardware 
installed  on  the  wing.   The  other  three  procedures  should  be 
done  sequentially.   Since  the  results  of  each  procedure  are 
stored  on  the  hard  disk,  it  is  not  necessary  to  do  all  three 
procedures  in  one  sitting.   For  example,  strain  gage 
resistances  are  updated  and  then  the  calibration  factors 
computed.   If  the  system  is  secured  and  then  restarted  the 
next  day,  the  experiment  can  commence  at  procedure  3  since 
all  the  previous  data  has  been  stored  on  the  hard  disk. 
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Hints  on  running  the  program: 


-  Due  to  a  bug  in  IBM  BASICA  the  backspace  key  has  been 
disabled.   To  correct  previously  typed  errors  prior  to 
hitting  Enter,  use  the  direction  keys  on  the  numeric 
keypad.   If  you  inadvertently  hit  the  backspace  key,  a 
window  appears  telling  you  what  to  do. 

-  When  making  strain  gage  resistance  measurements,  the 
leads  for  DVM  1  should  be  the  only  leads  connected  to 
the  strain  gage.   If  other  DVM  leads  are  left  connected 
and  a  resistance  measurement  taken  across  the  gage,  the 
reading  will  include  the  DVM  resistance  in  parallel  with 
the  strain  gage. 
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Figure  6. A   DVM1  Resistance  Lead  Connection  Points 


-  Several  times  in  the  program  a  screen  dump  to  the 
printer  occurs.   The  print  takes  approximately  two 
minutes  for  a  text  screen  and  three  minutes  for  a 
graphics  screen.   A  flashing  statement  will  appear  when 
a  print  is  in  progress,  except  for  a  graphics  screen. 
Program  execution  halts  during  a  screen  dump. 

-  Do  not  waste  allot  of  time  trying  to  balance  the 
Wheatstone  bridge  circuits  to  zero.   Get  them  as  close 
as  possible  to  keep  current  flow  to  a  minimum.   Since 
the  Fluke  meters  utilize  an  OFFSET  function,  exact  zero 
is  not  necessary. 

-  Analysis  of  the  strain  gages  rosettes  being  monitored 
can  be  accomplished  by  the  program  with  graphical 
results  only  immediately  after  the  screen  print  of  the 
load  summary.   If  the  choice  is  made  to  get  additional 
load  data  without  doing  the  analysis,  the  opportunity 
for  the  program  to  calculate  the  analysis  is  lost  for 
that  set  of  load  data. 

-  Only  as  a  last  resort,  the  program  can  be  terminated 
at  any  time  by  hitting  Ctrl/Break  simultaneously.   To 
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clear  the  screen  and  return  to  the  primary  text  screen, 
hit  F10.   To  rerun  the  program  from  this  point,  type 
SYSTEM,  Enter  and  then  P2V.   The  initial  selection  menu 
should  now  be  in  view. 

CAUTION 

Exit  from  the  program  using  the 
Ctrl/Break  procedure  can  cause  loss  of 
computed  data  up  to  that  point.   For 
normal  program  termination,  use  one  of 
the  Exit  options  in  a  program  selection 
menu. 

D.   HYDRAULIC  OPERATIONS/WING  LOADING 

Loading  Ualue    Electrical  Power  Switch 
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Figure  7. A   Hydraulic  Loading  System  Component  Location 


The  hydraulic  loading  system  consists  of  an  electric 
motor  which  drives  a  constant  pressure  hydraulic  pump  to 
provide  pressure  via  two  lines  to  actuating  cylinders 
attached  to  the  wing.   Prior  to  actuating  the  electric  motor 
ensure  that  the  loading  valve  is  open  (spins  freely  counter 
clockwise)  and  the  shift  selector  is  in  the  NEUTRAL 
position. 


(1)   START  the  electric  motor, 
of  warm  up  prior  to  loading. 


Allow  at  least  3  minutes 


(2)  Zero  the  load  reading  at  the  Load  Cell  Panel  by 
using  the  bridge  balances. 

(3)  Place  the  shift  selector  in  the  P2V  WING  position 
and  pin  it.   A  slight  load  might  appear  on  the  load 
meters  due  to  leakage  at  the  loading  valve. 
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(4)  Slowly  turn  the  loading  valve  clockwise.   Several 
turns  may  be  required  prior  to  the  first  indications  of 
hydraulic  loading,  depending  on  how  far  out  the  previous 
operator  set  the  valve.   Scan  the  load  meters  and  the 
hydraulic  pressure  gage  for  indications  of  system 
loading. 

CAUTION 

Hydraulic  system  hysteresis  evidenced  by 
a  large  split  in  load  meter  readings  is 
best  avoided  by  a  slow,  smooth  and 
continuous  turn  of  the  loading  valve  to 
the  desired  load.   A  large  split  will 
occur  if  the  desired  load  reading  is 
overshot  and  the  system  unloaded  down  to 
the  value.   If  a  gross  overshoot  occurs, 
completely  unload  the  system,  reset  the 
DVMs  to  zero  and  try  again. 

(5)  If  a  split  between  load  cells  exceeds  say  2%  of  the 
desired  value,  completely  unload  the  system,  reset  the 
DVMs  to  zero  and  try  again. 

(6)  Load  limits  are  2100  lb.  with  the  front  spar  web 
installed  and  1050  lb.  with  the  front  spar  web  removed. 

Hints  on  successful  operation  of  the  hydraulic  system 
include: 

-  When  turning  the  loading  valve  make  slow,  smooth  and 
continuous  turns.   Do  not  loose  patience  and  rapidly 
turn  the  valve. 

-  Set  zeros  at  the  Load  Cell  Panel  only  when  the  loading 
valve  spins  freely  counter-clockwise  and  the  shift 
selector  is  in  neutral. 

-  If  the  system  has  not  been  used  for  an  extended 
period,  load  the  system  up  to  1000  lb.  to  exercise  the 
linkage,  then  unload  and  set  the  zeros  prior  to 
attempting  a  program  run. 

-  A  plumb  bob  is  suspended  from  the  upper  support 
member.   A  sliding  scale  is  mounted  beneath  it.   Prior 
to  loading,  set  a  convenient  reading  as  zero  and 
occasionally  monitor  structure  deflection  if  at  the  load 
limit.   The  deflection  should  never  exceed  one-half 
inch. 
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E.   SECURE 

When  securing  the  equipment  associated  with  the  wing, 
order  is  important  for  the  following: 

-  DVM  Column.   First  secure  the  individual  DVMs  and  the 
voltage  source,  then  the  column  master. 

-  Load  Cell  Panel.   First  secure  the  individual  DVMs  and 
then  the  panel  master. 

-  Hydraulics.  Always  unload  the  wing  at  the  loading 
valve  and  put  the  shift  selector  in  neutral  prior  to 
securing  the  hydraulic  pump  electrical  motor. 
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TABLE  I. A    LIST  OF  STRAIN  GAGES  BY  TYPE 


A-3 


AR-7-2 


EA-13-250YA        UA-13-250UF 

1  ± 


Single 
1  Wire  Gage 
120  A 
12  ^otal 


Rect.  Rosette 
3  Uire  Gages 
120  A 
32  Total 


Delta  Rosette 
3  Foil  Gages 
120  A 
5  Total 


Stacked 
k   Foil 
120  A 
5  Total 


Rosette 
Gages 


19 

20 

36 

37 

71 

72 

103 

104 

105 

106 

107 

108 


1- 
4- 

7- 

10- 
13- 
16- 
21- 
24- 
27- 
30- 
33- 
38- 
41- 
44- 
47- 
50- 
53- 
56- 
59- 
62- 
65- 
68- 
73- 
76- 
79- 
82- 
85- 
88- 
91- 
94- 
97- 
100- 


2-3 
5-6 
8-9 

11-12 
14-15 
17-18 
22-23 
25-26 
28-29 
31-32 
34-35 
■39-40 
•42-43 
■45-46 
■48-49 
•51-52 
■54-55 
■57-58 
■60-61 
■63-64 
■66-67 
■69-70 
•74-75 
•77-78 
•80-81 
■83-84 
■86-87 
•89-90 
•92-93 
■95-96 
■98-99 
■101-102 


109-110-111 
112-113-114 
115-116-117 
118-119-120 
121-122-123 


124-125-126-127 
128-129-130-131 
132-133-134-135 
136-137-138-139 
140-141-142-143 
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P2V  STARBOARD  WING 

.STRAIN  GAGE  LOCATIONS 

TOP  OF  TEST  SECTION 
BOTTOM  SURFACE  OF  WING 

NOTE:    Wing  is  mounted  upside  down. 
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Figure  8. A   P2V  Starboard  Wing,  Strain  Gage  Locations,  Top 

of  Test  Section 
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P2V  STARBOARD  WINC 

STRAIN  GAGE  LOCATIONS 

TOP  OF  TEST  SECTION 
BOTTOM  SURFACE  OF  WING 

INTERIOR 


OUTBOARD 


Figure  9. A 


P2V  Starboard  Wing,  Strain  Gage  Locations,  Top 
of  Test  Section,  Interior 
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BOTTOM  OF  TEST  SECTION 
TOP  SURFACE  OF  WING 
NOTE:    Wing  is  mounted  upside  down. 
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Figure   10. A 


^Starboard  Wing'    Strain  Ga<?e   Loacations, 
Bottom  of  Test  Section  ' 
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P2V  STARBOARD  WING 

STRAIN  GAGE  LOCATIONS 

BOTTOM  OF  TEST  SECTION 
TOP  SURFACE  OF  WING 

INTERIOR 


Figure   11. A 


P2V  Starboard  Wing  Strain  Gage  Locations, 
Bottom  of  Test  Section,  Interior. 
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APPENDIX  B 
P2V  WING  LOAD  CELL  CALIBRATION  GUIDE 
A.   PREFERRED  METHOD 

1.  Remove  the  load  cells  from  the  support  structure. 

2.  Install  threaded  shafts  with  nuts  in  both  ends  of 
the  load  cell.  Extra  threads  and  the  nuts  are  in  the 
drawer  below  the  load  cell  panel. 

3.  Position  the  load  cells  in  a  test  machine  with 
proper  capacity  (Riehle  300,000  lb.  testing  machine).   A 
solid  clamp  on  the  nuts  prior  to  loading  the  machine  is 
extremely  critical  for  accurate  readings.   However,  some 
slippage  will  occur  during  initial  loading  and  it  should 
be  anticipated. 

4.  Connect  the  load  cell  cannon  plugs  to  the  load  cell 
panel  as  would  be  in  normal  operations.   Remove  the 
front  panel  screws  and  tilt  the  panel  forward  exposing 
the  interior  electronics. 


Individual  DUMs 


2250 


es^ 


ss^ 


BRIDGE  BALANCE 


lb, 


03^ 


PANEL  FOWEK 
^    ® 


^Bridge  Balance  Adjust 


HPanel 


Master 


Figure  l.B   Load  Cell  Panel 


5.   Each  load  cell  has  a  voltage  regulator  and  amplifier 
connected  to  a  single  plug  in  board.   Locate  the 
amplifier  adjust  screw  that  corresponds  to  the  desired 
load  cell  being  calibrated.   They  are  from  top-to-bottom 
1,2,3.   The  adjust  screw  is  mounted  sideways  on  the 
amplifier. 
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DUM1 


DUM2 


DUM3 


P 


Gain  Adjust 
Screws 


Figure  2.B   Load  Cell  Amplifier  Adjust  Locations 


6.   Commence  loading  of  the  cell.  Do  not  attempt  to 
calibrate  the  load  cell  during  initial  loading  where 


some  clamp  slippage  will  occur.  The 
lag  approximately  3  0  -  50  lb.  during 
Stop  as  close  as  possible  to  2000  lb 
can  not  hold  a  constant  setting  of  2 
it  will  take  at  least  two  people  to 
continue  the  calibration  of  the  cell 


DVM  reading  will 
transient  loading. 
The  load  machine 

000  lb.   Therefore, 

successfully 

s  from  this  point. 


7.  One  person  should  give  short  load  bursts  on  the 
machine,  then  call  out  when  the  load  passes  the  target 
of  2000  lb.   The  other  person  should  attempt  to  adjust 
the  amplifier  so  that  the  2  000  lb  DVM  reading  is  on  the 
mark.   A  successful  calibration  should  be  considered 
when  the  readings  are  within  5  lb. 

8.  Calibrate  the  remaining  cells  using  the  same 
procedure. 

9.  Reinstall  the  load  cells  on  the  wing  load 
application  structure. 

10.  Immediately  after  successfully  calibrating  all 
three  load  cells,  place  the  calibration  shunt  resistor 
across  the  jacks  in  the  back  of  the  load  cell  panel  and 
record  the  readings.   These  readings  will  be  a  quick 
check  for  load  cell  calibration  when  necessary. 
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B.   SECONDARY  (QUICK  CHECK)  METHOD 

1.  Apply  power  to  the  load  cell  panel  and  the 
individual  DVMs.   After  a  sufficient  warm-up,  set  zeros 
using  the  bridge  balances. 

2.  Place  the  calibration  shunt  resistor  across  the 
jacks  in  the  back  of  the  load  cell  panel.   Compare  the 
reading  against  the  last  calibration  run  in  the  load 
machine.   If  the  reading  is  off  by  more  than  10  lbf., 
adjust  the  amplifier  power  supply  as  in  the  method 
described  in  the  preferred  calibration  procedure. 

3.  Last  calibration: 

LOAD  CELL  1    LOAD  CELL  2    LOAD  CELL  3    DATE 

-1267  -1226  -1256      20/08/86 
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APPENDIX  C 

LOADING  FRAME  STABILITY  ANALYSIS 

A.   TEST 

The  stability  test  on  the  loading  frame  was  done  with 
the  use  of  a  manila  rope,  dynnamometer  and  a  come-along. 
One  end  of  the  rope  was  attached  to  the  frame's  cross  beam, 
the  other  to  the  opposite  wall  so  as  to  place  the  load  axis 
perpendicular  to  the  vertical  support,  Figure  3.C. 
Deflections  were  measured  with  a  plumb  bob  attached  to  the 
cross  member. 


TABLE  I.C 


STABILITY  ANALYSIS  DATA 


Load  fib)    Moment  fin-lb) 


tion  fin) 

Anqle  (rad) 

0.0 

0.0 

0.07 

0.0013462 

0.17 

0.0032692 

0.27 

0.0051923 

0.37 

0.0071153 

0.42 

0.0080768 

0.63 

0.0121148 

0.67 

0.0128839 

0.82 

0.0157679 

0.97 

0.0186539 

1.14 

0.0232919 

1.25 

0.0240338 

1.33 

0.0255714 

1.42 

0.0273009 

0 
50 
100 
145 
185 
242 
312 
345 
395 
435 
485 
500 
525 
555 


0 

2600 

5200 

7540 

9620 

12584 

16224 

17940 

20540 

22620 

25220 

26000 

27300 

28860 


B.   Simplified  Model 

In  determining  the  critical  load  for  the  loading  frame, 
the  following  simplifying  assumptions  were  made: 

-  The  complete  frame  was  reduced  to  a  single  column. 

-  The  single  column  was  a  rigid  body. 

-  Loading  on  the  column  was  precisely  vertical. 

-  The  vertical  load  was  concentric  on  the  column. 

-  All  resistance  to  torsional  load  deformation  was  reduced 
to  a  torsional  spring  located  at  the  base  of  the  column. 
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I 


Per 


Per  =  A 


=18,518  lb 


m  k 


Figure  l.C   Simplified  Load  Frame  Model 

Figure  2.C  contains  the  plotted  data  from  the  deflection 
test.   After  a  linear  regression  of  that  data,  a  best-fit 
value  for  the  slope  K,  the  torsional  spring  constant,  was 
calculated  to  be  962,936  in-lb.   Utilizing  energy  methods  or 
the  simple  statics  approach  found  in  Beer  &  Johnston, 
Mechanics  of  Materials,  Sections  11.1  -  11.3,  the  value  of 
critical  load  Per,  was  determined  to  be  18,518  lb. 

The  value  for  critical  load  based  on  the  simplifying 
assumptions  exceeds  the  operational  load  limit  by  nearly  ten 
times.   It  is  judged  that  even  upon  given  allowances  to  the 
simplified  calculations,  a  significant  margin  of  safety  is 
inherent  in  this  set-up. 
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Figure  2.C   Plotted  Test  Data 
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Figure  3.C   Load  Frame  Testing  Configuration 


45 


APPENDIX  D 
Program  Listing  for  P2V.CAL,  P2V-L0AD  and  ANAL. EXE 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1140 
1150 

1160 
1170 

1180 
1190 

1200 

1210 

1220 
1230 
1240 
1250 
1260 
1270 

1280 
1290 
1300 
1310 

1320 


THESIS  PROJECT 


'James  J.   Miller 

1 LCDR        USN 
i 

•Advisor: 

'Prof.  Edward  M.  WU 


******    STRAIN  GAGE  CALIBRATION  PROGRAM  ***** 


***** 


VARIABLE  LISTING 


***** 


A  -  Decision  variable,  main  menu 

ADD(  )  -  Array  containing  open  slots  on  the 

strain  gage  panel 
ASTRN(  )  -  Actual  DVM  strain  reading 
A$  -  Yes/No  decision  input  varible 
BDNAME$  -  GPIB  variable  device  name 
B#  -  DVM  reading  converted  from  string 

variable 
C  -  Counter 
CF(  )  -  Correction  factor  for  the  gage 

connected  to  the  DVM 
C#  -  Counter 
C%  -  Screen  graphics  flag  used  to  determine 

a  previous  pass  at  this  statement 
D(  )  -  Dummy  array  used  to  temporarily 

store  strain  gage  resistance  updates 
D(  ,  )  -  Matrix  used  to  store  all  DVM 

readings 
DEX  -  Element  deformation  X  deflection 
DEY  -  Element  deformation  Y  deflection 
DG#  -  Strain  gage  number  being  deleted 
DVM%  -  GPIB  device  status  variable 
D$  -  Today's  date 
Dl$  -  Date  of  last  strain  gage  resistance 

update 
E  -  GPIB  error  indicator 
EMAX  -  Maximun  strain 
EMIN  -  Minimum  strain 
ESTRN(  )  -  Expected  strain  reading  based  on 

shunt  resistance 
'ESI  -  Intermediate  strain  calculation 
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of   20 

1320-1640 


1330 
1340 
1350 
1360 
1370 

1380 
1390 
1400 

1410 
1420 

1430 
1440 
1450 
1460 
1470 
1480 

1490 

1500 
1510 
1520 

1530 

1540 

1550 
1560 

1570 
1580 
1590 

1600 

1610 
1620 
1630 

1640 


direction 
direction 


variable 
EX  -  Strain  in  the  X 
EY  -  Strain  in  the  Y 
F$  -  Analyze  flag 

G(  )  -  Gage  number  associated  with  a  DVM 
GAGE  -  Lead  gage  number  for  the  rosette 

being  analyzed 
GF  -  Gage  factor  for  the  analyze  rosette  data 
GF(  )  -  Gage  factor  of  a  gage 
GLE  -  Element  deformation  angle  of  strain 

deformation 
GMAX  -  Maximun  shear  strain 
GN1-GN4  -  Lead  gage  number  of  rosette  which 

can  be  analyzed 
GXY  -  Gama  XY,  shear  strain 
G$  -  Single  element  A-3  type  gage  flag 
I  -  Counter 

IBSTA%  -  GPIB  device  error  variable 
IC  -  Box  print,  interior  color 
J  -  Counter  //  Box  print,  upper  left 

corner,  row  number 
K  -  Counter  //  Box  print,  upper  left 

corner,  column  number 
L  -  Box  print,  horizontal  length 
LFLAG  -  Temporary  storage  for  NFLAG 
M  -  Box  print,  vertical  length  //  Integer 

decision  variable 
MSG#  -  Master  strain  gage  number  connected 

to  DVM1 
M$  -  Input  variable  for  analyze  data  of 

rosettes 
N  -  Counter 
NFLAG  -  Flag  variable  used  to  determine  if 

the  display  feature  had  been  used 
NG#  -  Gage  number  being  added 
NSTOP  -  While  loop  termination  flag 
N$  -  Name  of  person  currently  updating 

resistance  readings 
Nl$  -  Name  of  last  person  to  update 

resistance  readings 
PHIP  -  Angle  of  principle  direction 
PGXY  -  Mohr's  circle  pixel  position  for  shear 
PEX  -  Mohr's  circle  pixel  position  for 

strain  in  X 
PEY  -  Mohr's  circle  pixel  position  for 

strain  in  Y 
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1650-1980 


1650 
1660 

1670 

1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 

1810 

1820 
1830 
1840 

1850 

1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 


1970 


1980 


i 

REM 
i 


R  -  Mohr's  circle  radius 

R(  )  -  Resistance  of  a  gage  CAL  program  // 

Average  of  five  DVM  readings  LOAD  program 
RD$  -  GPIB  string  variable  holding  the  DVM 

reading 
RESULTS (  )  -  Corrected  readings  from  the  DVMs 
RPG#  -  Gage  number  being  replaced 
RR(  )  -  Resistance  of  a  gage  LOAD  program 
R#  -  Strain  gage  resistance 
S  -  DVM  reading  summary  variable 
SG#  -  Strain  gage  number  being  modified 
SF  -  Display  file  gage  factor 
SMULT  -  Isotropic  strain  multiplier 
T  -  Timer  loop  variable 
TX  -  Timer  loop  variable 
WRT$  -  GPIB  command  string  variable 
XLOAD  -  Load  on  the  wing 
XIS  -  Mohr's  circle  X  axis  movement  in 

pixels  from  center 
XSLP  -  Element  deformation  slope  of  the 

horizontal  lines 
XI  -  Element  deformation  pixel  position 
X2  -  Element  deformation  pixel  position 
Y  -  Flag  for  determining  if  program 

previously  executed  this  line 
YSLP  -  Element  deformation  slope  of  the 

vertical  lines 
Yl  -  Element  deformation  pixel  position 
Y2  -  Element  deformation  pixel  position 
Z$  -  Input  dummy  variable 

MAIN  PROGRAM  -  GPIB-PC  HANDLER  STATEMENTS 


CLEAR    ,59300! 

IBINIT1  =  59300! 

IBINIT2  =  IBINIT1  +  3 

BLOAD  "bib . m" , IBINIT1 

CALL  IBINIT1 (IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, 
IBPPC, IBBNA, IBONL, IBRSC, IBSRE, IBRSV, IBPAD, 
IBSAD, IBIST, IBDMA, IBEOS , IBTMO, IBEOT, IBRDF, 
IBWRTF) 

CALL  IBINIT2 ( IBGTS , IBCAC , IBWAIT , IBPOKE , IBWRT , 

IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, IBSTOP, IBRPP, 
IBRSP , IBDIAG , IBXTRC , IBRDI , IBWRTI , IBRDIA, 
IBWRTIA, IBSTA% , IBERR% , IBCNT%) 
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1990-2340 


1990 

2000 
2010 
2020 

2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 

2160 
2170 
2180 
2190 

2200 
2210 

2220 
2230 
2240 
2250 

2260 

2270 

2280 

2290 
2300 
2310 

2320 
2330 
2340 


REM    MAIN  PROGRAM  -  INITIAL  ASSIGNMENTS, 
DIMENSIONS 


KEY  OFF 

DIM  D(150),  R(150),  GF(150),  RESULTS(12) 
ESTRN(12),  ASTRN(12),  G(12),  ADD(50) 
PRINT  "~L=BACKKEY/" 
PRINT  "~K={BACK},KEYFIX,NOESC,NOMOVE/" 


CF(12), 


i 

REM 
i 


MAIN  PROGRAM  -  COVER  SHEET  PRINT  TO  SCREEN 


COLOR  5,0: SCREEN  0,1,1,1 

CLS 

K=5:J=5:L=70:M=15:GOSUB  3040 

COLOR  3 

LOCATE  9, 39: PRINT  "P2V" 

LOCATE  12, 35: PRINT  "CALIBRATION" 

LOCATE  15, 37: PRINT  "PROGRAM" 

COLOR  7: LOCATE  19, 25: PRINT  "By:  LCDR  J.  J.  Miller, 

SEPT  86" 
COLOR  23 
LOCATE  23,36 


PRINT  "STAND  BY" 


REM 


MAIN 
SCREEN 


PROGRAM  -  SELECTION  PAGE  PRINT  TO 


28,0: CLS: LOCATE  13,36: 
0 , 7 : CLS : COLOR  4,3 


SCREEN  0,1, 3,1: COLOR 

PRINT  "STANDBY" 
SCREEN  0,1, 0,1: COLOR 
K=7 : J=10 : L=60 :M=14 : IC=3 :GOSUB  3  04  0 
COLOR  0,3: LOCATE  10, 16: PRINT  "Select:" 
LOCATE  12, 22: PRINT  "(1)  Update  strain  gage 

resistances. " 
LOCATE  13, 22: PRINT  "(2)  Calculate  strain  gage 

calibration  factors  " 
LOCATE  14, 26: PRINT  "by  a  shunt  resistance 

measurement. " 
LOCATE  17, 22: PRINT  "(5)  Add/Delete/Replace  strain 

gages. " 
LOCATE  15, 22: PRINT  "(3) 
LOCATE  18, 22: PRINT  "(6) 
LOCATE  16, 22: PRINT  "(4) 

data." 
SCREEN  0,1, 1,1: COLOR  7 , 0 : CLS 
SCREEN  0,1, 0,0: COLOR  0,3 
LOCATE  19, 11: INPUT  "",A 


Load  the  wing." 
Exit  (Return  to  DOS) 
Analyse  last  recorded  load 
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2350-2720 

2350   IF  A=3  THEN  CHAIN  "P2V-L0AD" 

2360   IF  A<>4  GOTO  2450 

2370   F$  =  "Y"  'Analyse  Flag  only  set 

2  380   OPEN  "DISPLAY.DAT"  FOR  INPUT  AS  #1 

2390   INPUT  #1,  SF,  XLOAD 

2400   IF  SF=2.09  THEN  INPUT  #1,  GN1,GN2 ,GN3 , GN4 , GAGE 

ELSE  INPUT  #1,  GN1,GN2,GN3,GAGE 
2410   FOR  1=1  TO  12:INPUT  #1,  RESULTS(I),  G(I):NEXT  I 
2420   CLOSE  #1 
2430   GF(G(1))=SF 
2440   CHAIN  "P2V-LOAD" , 4310 , ALL 
2450   IF  A=l!  THEN  GOSUB  3580  ELSE  IF  A=2 !  THEN  GOSUB 

4790  ELSE  IF  A=5 !  THEN  GOSUB  6940  ELSE  IF  A=6! 

THEN  COLOR  7 , 0 : CLS : SYSTEM  ELSE  COLOR  0,3: 

LOCATE  19 ,32: SOUND  1000, 2: PRINT  "Enter 

1,2,3,4,5  or  6.":GOTO  2340 
2460     ' 
2470     REM    MAIN  PROGRAM  -  READ  PREVIOUS  STRAIN  GAGE 

DATA  FROM  FILE 
2480     • 

249  0   OPEN  "STRAIN.DAT"  FOR  INPUT  AS  #1 
2500   INPUT  #1,D1$,N1$ 
2510   FOR  N=l  TO  150 
2520       INPUT  #1,I,R(N) ,GF(N) 
2530       IF  D(N)  =  0  GOTO  2550 
2540       R(N)  =  D(N) 
2550   NEXT  N 
2560   CLOSE  #1 
2570     • 
2  58  0     REM    MAIN  PROGRAM  -  WRITE  REVISED  STRAIN  GAGE 

DATA  TO  FILE 
2590     ■ 

2  600   OPEN  "STRAIN.DAT"  FOR  OUTPUT  AS  #1 
2610   WRITE  #1,D$,N$ 
2  62  0   FOR  N=l  TO  150 
2630       WRITE  #1,N,R(N) ,GF (N) 
2640   NEXT  N 
2650   CLOSE  #1 
2660     ■ 
2  670     REM    MAIN  PROGRAM  -  HARD  COPY  SELECTION  PRINT 

TO  SCREEN 
2680     ' 

2  69  0   SCREEN  0,1,0,3 
2700   COLOR  3 , 1 : CLS : COLOR  4,7 
2710   K=10:J=10:L=60:M=6:IC=7: GOSUB  3040 
2720   COLOR  0 , 7 : LOCATE  12, 20: PRINT  "Do  you  want  a  hard 
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2720-3090 

copy  of  all  strain  gage" 

2730  LOCATE  14 ,20: PRINT  "resistances  and  gage  factors? 

(Y/N) " 

2740  SCREEN  0,1,0,0 

2750  LOCATE  14,  57:  INPUT  ,MI,A$ 

2760  IF  A$="N"  OR  A$="n"  THEN  COLOR  7:CLS:GOTO  2080 

2770  IF  A$o"y"  AND  A$<>"Y"  GOTO  2750 

2780  SCREEN  0,1,3,3 

2790  GOSUB  3370 

2800  SCREEN  0 , 1, 0 , 0 : COLOR  7 , 0 : CLS 

2810  GOTO  2080 
2820     ' 

283  0     REM    MAIN  PROGRAM  -  PROGRAM  RUN  END 
2840     ' 

2850  COLOR  7 : CLS : END 
2860    ' 
2870    REM    SUBPROGRAM  -  PRINT  A  ROW  TO  SCREEN 

(K-START,  J-END,  L-ROW) 
2880    ' 

2890  FOR  I=K+1  TO  J-l 
2900       LOCATE  L,I 
2910       PRINT  CHR$(205) 

2920  NEXT  I 

2930  LOCATE  L,K:PRINT  CHR$ (204) : LOCATE  L,J:PRINT 

CHR$(185) 

294  0  RETURN 
2950    ' 

2  9  60    REM    SUBPROGRAM  -  PRINT  A  COLUMN  TO  SCREEN 

(K-START,  J-END,  L-COLUMN) 
2970    ' 

2980   FOR  I=K+1  TO  J-l 
2990       LOCATE  I,L 
3000       PRINT  CHR$(186) 

3  010   NEXT  I 

3  02  0   LOCATE  K,L: PRINT  CHR$ (203) : LOCATE  J, L: PRINT 

CHR$(2  02) 
3  03  0   RETURN 
3040    ' 

3  050    REM    SUBPROGRAM  -  PRINT  A  BOX  TO  SCREEN 
(K,J-UPPERLEFT  CORNER,  L-LENGTH, 

M-HEIGHT,  IC-INTERIOR  COLOR. . 
DEFAULT  BLACK  0) 
3060    ' 

3070   LOCATE  K, J: PRINT  CHR$(201) 
3080   FOR  I=J+1  TO  J+(L-1) 
3  090       LOCATE  K,I 
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3100-3470 

3100       PRINT  CHR$(205) 

3110  NEXT  I 

312  0  LOCATE  K,J+L: PRINT  CHR$(187) 

313  0  FOR  I=K+1  TO  K+(M-1) 

314  0       LOCATE  I, J 
3150       PRINT  CHR$(186) 
3160  NEXT  I 

3170  LOCATE  K+M,J:PRINT  CHR$(200) 

3180  FOR  I=J+1  TO  J+(L-1) 
319  0       LOCATE  K+M,I 
3200       PRINT  CHR$(205) 

3210  NEXT  I 

322  0  LOCATE  K+M,J+L: PRINT  CHR$(188) 

323  0  FOR  I=K+1  TO  K+(M-1) 
3240       LOCATE  I , L+ J 
3250       PRINT  CHR$(186) 
3260  NEXT  I 

3270  IF  IC=0  GOTO  3360 

3  280  COLOR  IC 

3290  FOR  I=K+1  TO  K+M-l 

3  3  00       FOR  N=J+1  TO  J+L-l 

3  310  LOCATE  I, N: PRINT  CHR$(219) 

3320       NEXT  N 

333  0  NEXT  I 

3340  COLOR  7,0 

3350  IC=0 

3  3  60  RETURN 

3370    ' 

3380    REM    SUBPROGRAM  -  PRINTS  TO  THE  PRINTER  A  TABLE 

OF  STRAIN  GAGE  DATA 
3390    • 

3400  FOR  1=1  TO  79:LPRINT  TAB(I) ;CHR$ (95) ; :NEXT  I 

3410  LPRINT  TAB(l) ;CHR$(124) ;TAB(79) ;CHR$(124) 

3420  LPRINT  TAB(l) ;CHR$ (124) ;TAB(25) ; "STRAIN  GAGE 

RESISTANCE  SUMMARY " ; TAB ( 7 9 ) ;CHR$(124) 

3430  LPRINT  CHR$ ( 124) ; : FOR  1=2  TO  78:LPRINT  TAB(I) 

3440 

3450   LPRINT  CHR$  (124)  ;  :  FOR  1=2  iu    i^jr^xiMi 

CHR$ (246) ;: NEXT  I : LPRINT  CHR$(124) 
3460   LPRINT  TAB(l) ;CHR$ (124) ; "  GAGE  #     OHMS      GF 

";CHR$(124) ;"  GAGE  #     OHMS      GF   " ; 

CHR$(124);M  GAGE  #     OHMS       GF   n;CHR$(124) 
3470   LPRINT  TAB ( 1) ; CHR$ (124) ; : FOR  1=2  TO  78:LPRINT 

TAB(I) ;CHR$(246) ; :NEXT  I: LPRINT  CHR$(124) 
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3480-3670 

3480   FOR  J=l  TO  45 

3490       LPRINT  TAB (1) ;CHR$ (124) ;TAB(3) ; J;TAB (11) ;R( J) ; 


3500   NEXT  J 
3  510   LPRINT 


3520 


3530 


3540 


TAB (55) 

TAB (79) 
3550   LPRINT  TAB (1) ;CHR$ (124) ;TAB(4) ; "50" ;TAB(11) ;R(50) ; 

TAB(21) ;GF(50) ;TAB(27) ;CHR$(124) ;TAB(29) ;"100" 

TAB(37) ;R(100) ;TAB(47) ;GF(100) ;TAB(53) ; 

CHR$(124) ;TAB(55) ; "WA-13" ;TAB(63) ;R(150) ; 

TAB(73) ;GF(150) ;TAB(79) ;CHR$(124) 
3560   FOR  1=1  TO  79: LPRINT  TAB (I) ;CHR$ (176) ; :NEXT  I: 

LPRINT  CHR$(244) 
3570   RETURN 
3580    ' 

3590    REM    SUBPROGRAM  -  UPDATE  STRAIN  GAGE  RESISTANCES 
3600    • 

3  610    'Name  entry  screen 
3  620   D$  =  DATE$ 

3  63  0   SCREEN  0, 1, 0, 0 : COLOR  7 , 0 : CLS : COLOR  15,0 
3  640   COLOR  4 , 0 : LOCATE  1,23: PRINT  "STRAIN  GAGE 

RESISTANCE  MEASUREMENT" 
3  650   COLOR  4 , 0 : LOCATE  1,23: PRINT  "STRAIN  GAGE 

RESISTANCE  MEASUREMENT" 
3  660   LOCATE  5,3  0 
3  67  0   PRINT  "Enter  operator's  name." 
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3680-3990 

3680   COLOR  4 , 7 :K=12 : J=30 : L=20 :M=2 : IC=7 :GOSUB  3050 

3  690   LOCATE  13 ,32: COLOR  0,7 

3700   INPUT  ,MI,N$ 

3710    ' 

3720    'Instruction  page  for  reading  resistances  on  DVM 

1  print  to  screen 
3730   SCREEN  0,1,0,3 
3740   COLOR  7 , 11 : CLS : COLOR  4,7 
3750   K=3:J=3  3:L=14:M=3:IC=7:GOSUB  3040 
3760   COLOR  1,7: LOCATE  4, 35: PRINT  "RESISTANCE" 
3  77  0   LOCATE  5, 35: PRINT  "MEASUREMENT" 
3780   COLOR  15,0: LOCATE  9 , 5 : PRINT  CHR$ (219) ;: COLOR  5,11: 

PRINT  "   ONLY";: COLOR  0: PRINT  "  DVM  1  will  be 

used  for  all  resistance  measurements." 
3790   LOCATE  ll,5:COLOR  26,11:PRINT  CHR$(219);: 

COLOR  0,11: PRINT  "   Ensure  DVM  1  is  set  up  as 

follows: " 
3800   LOCATE  13, 28: PRINT  "1.  Power  Button  -  ON." 
3  810   LOCATE  14, 28: PRINT  "2.  Input  Button  -  FRONT." 
3820   LOCATE  16,5:COLOR  23,11:PRINT  CHR$(219);: 

COLOR  0,11: PRINT  "   Connect  the  two-wire  test 

leads  to  the  front  of  the  meter." 
383  0   COLOR  15,0: LOCATE  20, 29: PRINT  "  SPACEBAR  to 

continue  " 
3840  SCREEN  0,1,0,0 
3850   Z$  =  INKEY$ 

3860   IF  Z$  <>  CHR$(32)  GOTO  3850 
3870    ■ 

3880    'Input  strain  gage  to  be  read  page  print  to  screen 
3890   COLOR  7 , 0 : CLS : SCREEN  0 , 1, 0, 3 : CLS : COLOR  4,7 
3900   K=6:J=10:L=60:M=10:IC=7:GOSUB  3040 
3910   COLOR  4,7 

3920   K=10:J=70:L=11:GOSUB  2860 
3  93  0   COLOR  4 , 0 : LOCATE  1,23: PRINT  "STRAIN  GAGE 

RESISTANCE  MEASUREMENT" 
3940   COLOR  1,7 
3950   LOCATE  8, 11: PRINT  "        When  the  strain  gage  is 

properly  connected         " 
3960   LOCATE  9, 11: PRINT  "        to  DVM1,  enter  strain 

gage  number  and  <CR>.        " 
3  97  0   COLOR  5, 7: LOCATE  13, 11: PRINT  "         NOTE: 

A  resistance  measurement  will  be  taken       " 
3980   LOCATE  14, 11: PRINT  "        using  DVM1  immediately- 
following  <CR>.  " 
3  990   COLOR  15,0: LOCATE  21, 22: PRINT  "Enter  0  to  end  and 

return  to  the  menu." 
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4000-4350 

4000   SCREEN  0,1,0,0 

4  010   COLOR  7: LOCATE  23,1: PRINT  "Enter  strain  gage 

number:      " : LOCATE  2  3,28 
4  02  0   INPUT  ,M',SG# 
4030   IF  SGfOO  THEN  GOTO  4140 

4040   SCREEN  0 , 1, 0, 3 : COLOR  1 , 7 : CLS : LOCATE  11,5 
4  050   COLOR  2  6, 7: PRINT  CHR$ (219) ;: COLOR  0,7: PRINT  " 

Ensure  DVM  1  is  returned  to  the  following:" 
4060   LOCATE  13, 28: PRINT  "1.   Power  Button  -  cycle  OFF 

then  ON." 
4  07  0   LOCATE  14, 28: PRINT  "2.   Input  Button  -  REAR." 
4  08  0   LOCATE  15, 28: PRINT  "3.   Remove  the  two  wire  test 

leads. " 
409  0   COLOR  15,0: LOCATE  2  0, 29: PRINT  "  SPACEBAR  to 

continue  " 
4100  SCREEN  0,1,0,0 
4110   Z$  =  INKEY$ 

4120   IF  Z$  <>  CHR$(32)  GOTO  4110 
4130   SCREEN  0 , 1 , 0 , 0 : COLOR  28 , 0 : CLS : LOCATE  13,36: 

PRINT  "STANDBY": COLOR  7: RETURN 
4140   SCREEN  0,1, 0,0: CLS 

4150   COLOR  2 8,0: CLS: LOCATE  13, 36: PRINT  "STAND  BY" 
4160   GOSUB  4350 
4170    ■ 
4180    'Display  resistance  measurement  page  print  to 

screen 
4190   CLS 

4200   COLOR  3:K=11:J=10:L=60:M=4:GOSUB  3040 
4210   K=11:J=15:L=4  0: GOSUB  2960 

422  0   COLOR  7 : LOCATE  13, 15: PRINT  "STRAIN  GAGE  ";SG# 
4230   LOCATE  13, 45: PRINT  "RESISTANCE  =  " ;R# ;CHR$ (234) 
424  0   LOCATE  20, 10: PRINT  "Enter:   (Y) -Measurement  is 

acceptable,  (approx.  118.5-123.5  " ;CHR$ (234) ; ") " 
4250  LOCATE  21, 10: PRINT  "  (N) -Cancel  the  reading." 
4260   LOCATE  23,1: COLOR  4 : INPUT  "NOTE:   A  (Y)  entry  will 

file  the  measurement" ;A$ 
4270   IF  A$="N"  OR  A$="n"  THEN  COLOR  7 , 0 : CLS : GOTO  3880 
4280   IF  A$o"Y"  AND  A$o"y"  THEN  PRINT  "Enter  Y  or  N.": 

GOTO  4260 
4290   D(SG#)=R# 

4  3  00   SCREEN  0, 1, 2 , 2 : COLOR  9 : CLS 
4310   K=ll:J=29:L=23:M=4:GOSUB  3040 
43  2  0   COLOR  15: LOCATE  13, 34: PRINT  "DATA  RECORDED" 
4330   FOR  1=1  TO  100:  J=J+I:NEXT  I     'Program  delay 
4340   GOTO  3880 
4350    ' 
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4360-4800 

4  3  60    REM    SUBPROGRAM  -  READ  RESISTANCE  FROM  DVM1 

4370    ' 

4380  BDNAME$  =  "DVM1" 

4  390  CALL  IBFIND  (BDNAME$ , DVM%) 

4400  IF  DVM%  <  0  THEN  GOSUB  4590 

4410  CALL  IBCLR  (DVM%) 

4420  IF  IBSTA%  <  0  THEN  GOSUB  4700 

4430  WRT$  =  "F3R0" 

444  0  CALL  IBWRT  (DVM%,WRT$) 

4450  IF  IBSTA%  <  0  THEN  GOSUB  4700 

4460  J=0:FOR  1=1  TO  500 :J=J+I : NEXT  I  'Program  delay 

4470  RD$  =  SPACE$(16) 

448  0  CALL  IBRD  (DVM%,RD$) 

4490  IF  IBSTA%  <  0  THEN  GOSUB  4700 

4500  R#=VAL(RD$) 

4  510  RETURN 

4520    ■ 

4  53  0    REM    SUBPROGRAM  -  GPIB-PC  ERROR  STATEMENTS 

4540    ' 

4550    'A  routine  at  this  location  would  notify 

4560    'you  that  the  IBFIND  call  failed,  and 

4570    'refer  you  to  the  handler  software 

4580    'configuration  procedures. 

4590  PRINT  "IBFIND  ERROR"  :  PRINT  "E=  ";E:  END 

4600    ' 

4  610    'An  error  checking  routine  at  this 

4620    'location  would,  among  other  things, 

4630    'check  IBERR  to  determine  the  exact 

4  64  0    'cause  of  the  error  condition  and  then 

4  650    'take  action  appropriate  to  the 

4660    'application.   For  errors  during  data 

4  670    'transfers,  IBCNT  may  be  examined  to 

4  68  0    'determine  the  actual  number  of  bytes 

4690    'transferred. 

4700  PRINT  "GPIB  ERROR"  :  PRINT  "E=";E:  END 

4710    ' 

4720    'A  routine  at  this  location  would  analyze 

4730    'the  fault  code  returned  in  the  DVM's 

4740    'status  byte  and  take  appropriate  action. 

4  7  50  PRINT  "DVM  ERROR"  :  PRINT  "E=  ";E:  END 

4760    ' 

4770  END 

4780    ' 

479  0    REM    SUBPROGRAM  -  CALCULATE  STRAIN  GAGE 

CALIBRATION  DATA 
4800    ' 
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4810-5200 


4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 

4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 

5090 

5100 

5110 

5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 


SCREEN  ,,2,3 

•Print  to  screen  CALIBRATION  cover  page 

COLOR  0,1:CLS 

COLOR  1,7 

K=10 : J=2 6 : L=28 : M=6 : IC=7 : GOSUB  3  04  0 

COLOR  4, 7: LOCATE  11, 32: PRINT  "CORRECTION  FACTOR" 

LOCATE  13, 35: PRINT  "CALCULATION" 

LOCATE  15, 37: PRINT  "PROGRAM" 

COLOR  31,1: LOCATE  2 0,37: PRINT  "STAND  BY" 
i 

'Construct  the  table  of  strain  gage  calibration 
data 
SCREEN  0,1, 0,2: COLOR  3 , 0 : CLS 
K=1:J=2:L=77:M=20:IC=0:GOSUB  3040 
K=2:J=79:L=3: GOSUB  2870 
L=5: GOSUB  2  87  0 
K=3:J=21:L=12: GOSUB  2960 
L=21:GOSUB  2960 
2960 
2960 
2960 
2960 

LOCATE  5, 12: PRINT  CHR$(206) 
LOCATE  5, 21: PRINT  CHR$(206) 
LOCATE  5, 30: PRINT  CHR$(206) 
LOCATE  5, 42: PRINT  CHR$(206) 
LOCATE  5, 55: PRINT  CHR$(206) 
LOCATE  5, 66: PRINT  CHR$(206) 
COLOR  15: LOCATE  2, 19: PRINT  "STRAIN  GAGE 

CALIBRATION  DATA  (strain-" ;CHR$ (230) ; "  in/in)" 
COLOR  11: LOCATE  4 , 5 : PRINT  "METER" : LOCATE  4,15: 

PRINT  "GAGE": LOCATE  4, 24: PRINT  "G.F." 
LOCATE  4,36:PRINT  CHR$ ( 2 3 4 ) : LOCATE  4,46: 

PRINT  CHR$(238) ;"(expt)" 
LOCATE  4,58: PRINT  CHR$ (238) ; " ( act ) " : LOCATE 

PRINT  "C.F." 
COLOR  9:N=1 
FOR  J=6  TO  18  STEP  4 

LOCATE  J, 5: PRINT  "DVM  " 

LOCATE  J+1,5:PRINT  "DVM 

LOCATE  J+2,5:PRINT  "DVM 

N=N+3 
NEXT  J 


L=3  0: GOSUB 
L=42: GOSUB 
L=55: GOSUB 
L=66: GOSUB 


4,71 


: PRINT  USING  "##";N 
";:PRINT  USING  "##";N+1 
";:PRINT  USING  "##";N+2 


'Read  the  strain  gage  resistance  data  and  gage 
factors  from  "STRAIN.DAT" 
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5210-5520 

5210  OPEN  "STRAIN.DAT"  FOR  INPUT  AS  #1 

5220  INPUT  #1,D1$,N1$ 

5230  FOR  N=l  TO  150 

5240       INPUT  #1,I,R(I) ,GF(I) 

5250  NEXT  N 

5260  CLOSE  #1 

5270    ' 

5280    'Prompt  for  strain  gages  connected  to  the 

respective  DVMs  then  print  the 
5290    'data  in  the  sppropriate  location  in  the 

calibration  data  table 

5300  SCREEN  0,1,2,2 

5310  COLOR  7,0:CLS 

5320  SCREEN  0,1,0,0:Y=0 

5330  FOR  N=l  TO  12 
5340       COLOR  0 , 0 : LOCATE  22, 10: PRINT  " 

ii 

5350      COLOR  15: LOCATE  23, 21: PRINT  "Enter  strain  gage 

#  connected  to  DVM  ";N 
5360       M=0 
5370       IF  N>3  THEN  M=l 
53  8  0       IF  N>6  THEN  M=2 
5390       IF  N>9  THEN  M=3 
5400       COLOR  7:LOCATE  5+N+M, 15 : PRINT  CHR$(219); 

CHR$(219) ;CHR$(219) 
LOCATE  5+N+M, 15: COLOR  0,7: INPUT  "» ,SG# 
IF  SG#<1  OR  SG#>146  THEN  SOUND  1000,18: 

LOCATE  2 2, 10: COLOR  31,0: PRINT  "STRAIN  GAGE 

";SG#;"  IS  INOPERATIVE  OR  NOT  INSTALLED. 

SELECT  ANOTHER.": COLOR  15,0: GOTO  5400 
IF  R(SG#)=0  THEN  SOUND  1000 , 18 : LOCATE  22,10: 

COLOR  31,0: PRINT  "STRAIN  GAGE  ";SG#; 

"  IS  INOPERATIVE  OR  NOT  INSTALLED.  SELECT 

ANOTHER.": COLOR  15,0: GOTO  54  00 
5440       G(N)=SG# 

5450       LOCATE  5+N+M, 15 : COLOR  7 , 0 : PRINT  USING  "###", 'SG# 
5460       LOCATE  5+N+M, 24 : PRINT  USING  "#.##" ;GF (SG#) 
5470       LOCATE  5+N+M, 33 : PRINT  USING  »###.###» ;R(SG#) 
548  0       ESTRN(N)=(R(SG#)/(GF(SG#) * (59872 . 5+R(SG#) ) )* 

1000000!) 
5490       IF  N=l  THEN  MSG#=SG# 
5500       LOCATE  5+M+N, 45 : PRINT  USING  "####.###"; 

ESTRN(N):IF  Y=l  GOTO  5530 
5510   NEXT  N 


5410 
5420 


5430 


5520 
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5530-5840 

5530    'Check  to  see  if  there  are  any  changes 

554  0   COLOR  4 , 0 : LOCATE  2 3, 15: INPUT  "  Any 

changes?  (Y/N)  ",A$ 

5550   IF  A$  =  "y"  OR  A$  =  "Y"  THEN  Y=l: LOCATE  23,25: 

PRINT  "   Which  DVM  will  be  changed? 

": LOCATE  23 ,56: INPUT  "",N:IF  Y=l  AND 

N>=1  AND  N<=12  GOTO  5340  ELSE  SOUND  100,3: 

GOTO  5550 
5560   IF  A$  <>  "N"  AND  A$  <>  "n"  GOTO  5540 
5570   COLOR  7 , 0 : LOCATE  23, 15: PRINT  " 

STAND  BY  " 

5580    ' 
5590    'Print  to  screen  the  directions  for  hooking  up 

the  calibration  shunt 
5600    'resistor  to  DVM  1  which  is  the  master  for  this 

experiment 
5610   SCREEN  0,1,2,0:CLS 
5620   COLOR  14,1 

5630   K=l:J=28:L=25:M=6:IC=l:GOSUB  3040 
5640   COLOR  7,1: LOCATE  2, 35: PRINT  "STRAIN  GAGE" 
5650   LOCATE  4, 35: PRINT  "CALIBRATION" 
5660   LOCATE  6, 37: COLOR  12,1: PRINT  "MASTER" 
5670   LOCATE  9,5 
5680   COLOR  7 , 0 : PRINT  CHR$(219);"   The  strain  gage 

connected  to  DVM  1  will  be  the  master  for  this 

run . " ; 
5690   LOCATE  11, 5: COLOR  25,0:PRINT  CHR$ (219) ;: COLOR  11,0 
5700   PRINT  "   Balance  the  Wheatstone  bridge  on  DVM  1.";: 

COLOR  15,0: PRINT  "  Hit   SPACEBAR  when  balanced." 

5710   SCREEN  0,1,2,2 

5720   Z$  =  INKEY$ 

5730   IF  Z$  <>  CHR$(32)  GOTO  5720 

5740   LOCATE  11, 5: COLOR  9 , 0 : PRINT  CHR$(219) 

5750   LOCATE  11, 47: COLOR  7 , 0 : PRINT  " 

ii 

5760   BDNAME$  =  "DVM1" 

5770   GOSUB  6720 

5780   COLOR  26,0:LOCATE  13,5:PRINT  CHR$(219); 

579  0   COLOR  15,0: PRINT  "   Place  the  calibration  shunt 

resistor  across  the  strain  gage  leads  " ; 
58  00   LOCATE  14 , 8 : PRINT  "connected  to  DVM  1.";: 

COLOR  15,0: PRINT  "   Hit  SPACEBAR  to  continue." 
5810   Z$  =  INKEY$ 

5820   IF  Z$  <>  CHR$(32)  GOTO  5810 
583  0   LOCATE  13, 5: COLOR  10,0: PRINT  CHR$(219) 
5840   LOCATE  14, 29: COLOR  7 , 0 : PRINT  " 
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5840-6150 


5850 

5860 
5870 

5880 


5890 
5900 

5910 
5920 
5930 
5940 
5950 

5960 
5970 
5980 

5990 
6000 
6010 
6020 
6030 

6040 
6050 
6060 


6070 
6080 
6090 

6100 
6110 
6120 
6130 
6140 
6150 


LOCATE  16, 5: COLOR  28,0: PRINT  CHR$ (219) ;: COLOR  14,0: 

PRINT  "   Adjust  the  Wheatstone  Bridge  power 

supply  so  that  the  reading  on  DVM  1"; 
LOCATE  17, 8: PRINT  "is  as  close  as  possible  to  the 

M;CHR$(238) ;" (expt)  of:"; 
COLOR  0,15: LOCATE  18, 36: PRINT  CHR$ (32 );"-"; : 

PRINT  USING  "#.###" ;ESTRN(1)/1000; : PRINT 

CHR$(32) 
COLOR  7,0:  LOCATE  2  0,  5 -.PRINT  CHR$(219);"   Once  the 

voltage  source  is  set,  do  not  change  the 

voltage  for" ; 
LOCATE  21, 8: PRINT  "remainder  of  this  session." 
COLOR  3,0: LOCATE  2 3, 19: PRINT  "When  the  voltage  is 

adjusted,  <CR>  to  continue." 
Z$  =  INKEY$ 

IF  Z$  <>  CHR$(13)  GOTO  5910 
COLOR  7,0:CLS 

'Return  to  the  calibration  table  and  take  the 
calibration  shunt  reading 

•  for  the  other  11  strain  gages 
SCREEN  0,1,0,0 
LOCATE 


2 3, 20: PRINT 


it 


ii 


GOSUB  6860 

ASTRN(l)  =  VAL(RD$) *(-1000000i) 
LOCATE  6, 58: PRINT  USING  "####.# 
CF(1)  =  ESTRN(1)/ASTRN(1) 
LOCATE  6, 69: COLOR  13,0: PRINT  US 

CF(1) : COLOR  7,0 
Y=01 
FOR  N=2  TO  12 

LOCATE  23, 10: PRINT  "Balance 
connected  to  DVM  ";N;" 
continue. " 
Z$  =  INKEY$ 

IF  Z$  <>  CHR$(32)  GOTO  6070 
LOCATE  2  3, 10: PRINT  " 

STAND  BY 
IF  N=2  THEN  BDNAME$  =  "DVM2 
IF  N=3  THEN  BDNAME$  =  "DVM3 
IF  N=4  THEN  BDNAME$  =  "DVM4 
IF  N=5  THEN  BDNAME$  =  "DVM5 
IF  N=6  THEN  BDNAME$  =  "DVM6 
IF  N=7  THEN  BDNAME$  =  "DVM7 


STAND  BY 

";ASTRN(1) 

ING  "#.######"; 


the  bridge 
SPACEBAR  to 


ii 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


6720 
6720 
6720 
6720 
6720 
6720 
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6160-6460 

6160       IF  N=8  THEN  BDNAME$  =  "DVM8" : GOSUB  6720 
6170       IF  N=9  THEN  BDNAME$  =  "DVM9" : GOSUB  6720 
6180       IF  N=10  THEN  BDNAME$  =  "DVM10" : GOSUB  6720 
6190       IF  N=ll  THEN  BDNAME$  =  "DVMll" : GOSUB  6720 
6200       IF  N=12  THEN  BDNAME$  =  "DVM12" : GOSUB  6720 
6210      LOCATE  23, 3: PRINT  "Place  the  shunt  resistor 

across  the  leads  to  DVM  ";N;M   <CR>  to 

continue. " 

6220       Z$  =  INKEY$ 

6230       IF  Z$  <>  CHR$(13)  GOTO  6220 

6240       LOCATE  2 3, 3: PRINT  " 

STAND  BY 
ii 

6250  GOSUB  6860 

6260  ASTRN(N)  =  VAL(RD$) * (-1000000 !  ) 

6270  CF(N)  =  ESTRN(N)/ASTRN(N) 

6280  M=0 

6290  IF  N>3  THEN  M=l 

6300  IF  N>6  THEN  M=2 

6310  IF  N>9  THEN  M=3 

6320  LOCATE  5+N+M, 58 : PRINT  USING  "####.#" ;ASTRN (N) 

63  3  0  LOCATE  5+N+M, 69 : COLOR  13,0:PRINT  USING 

"#.######";CF(N) 

6340       IF  Y=l!  GOTO  6370 

6350       COLOR  7,0 

6360   NEXT  N 

6370   COLOR  4 , 0 : LOCATE  23, 13: INPUT  "      Want  to 

recalibrate  any  gages?  (Y/N) 

",A$ 

6380   LOCATE  23,1: PRINT  " 

ii 

6390   IF  A$  =  "y"  OR  A$  =  "Y"  THEN  Y=l: LOCATE  23,12: 
PRINT  "      Which  DVM  has  the  gage  to  be 
recalibrated?   ": LOCATE  2 3, 66: INPUT  ,MI,N: 
IF  Y=l  AND  N>=2  AND  N<=12  THEN  COLOR  7: GOTO  6060 

64  00   IF  N=l  AND  Y=l  THEN  LOCATE  2 3, 25: PRINT  "Since  DVM1 

was  the  master,  you  must  start  again. 

SPACEBAR  to  continue.": INPUT  "",Z$:IF 

Z$<>CHR$(32)  GOTO  6400:GOTO  2080 
6410   IF  Y=l  AND  (N<1  OR  N>12)  THEN  SOUND  1000,2:GOTO  6390 
6420    • 
64  3  0    'Constructs  an  output  file  "CALIBRAT.DAT"  which 

contains  the  calibration 
6440    'data:   DVM  #,  Strain  gage  #  and  Calibration  factor 
6450   OPEN  "CALIBRAT.DAT"  FOR  OUTPUT  AS  #2 
6460   FOR  N=l  TO  12 
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6470-6860 

6470       WRITE  #2 ,N, G (N) , CF (N) 

6480  NEXT  N 

6490  CLOSE  #2 

6500    ■ 

6510    'Machine  language  routine  that  does  a  PrtSc 

652  0  LOCATE  23 ,10: COLOR  18,0: PRINT  " 

HARDCOPY  IN  PROGRESS 
11 

6530  D$=DATE$ 

6540  LPRINT  TAB(36) ;D$ 

6550  DEFINT  A:  DIM  ARRAY  (3) 

6560  DATA  &HCD55  :REM  55H  Push  BP 

6570  DATA  &H5D05  :REM  CD05H  INT  5 

6580  :REM  5DH  POP  BP 

659  0  DATA  &H9  0CB  :REM  9 OH  NOP 

6600  FOR  1=1  TO  3:  READ  ARRAY(I):  NEXT  I 

6610  SUBRT  =  VARPTR (ARRAY (1) ) :  CALL  SUBRT 

6620    ' 

6630    'Return  to  the  main  menu 

6640  LPRINT  CHR$(27)+"E" 

6650  LOCATE  2  3, 10: COLOR  15,0: PRINT  "Remove  the 

calibration  shunt  resistor. "; : COLOR  31: 

PRINT  "  SPACEBAR  TO  CONTINUE." 

6660  Z$  =  INKEY$ 

6670  IF  Z$  <>  CHR$(32)  GOTO  6660 

6680  GOTO  2080 
6690    ' 
6700    'Subprogram  sets  meter  REMOTE,  clears  it,  sets 

function  and  range  then 
6710    'turns  on  the  OFFSET 

672  0  CALL  IBFIND  (BDNAME$ , DVM%) 

673  0  IF  DVM%  <  0  THEN  GOSUB  4590 

674  0  CALL  IBCLR  (DVM%) 

6750  IF  IBSTA%  <  0  THEN  GOSUB  4700 

6760  WRT$  =  "F1R0" 

677  0  CALL  IBWRT  (DVM%,WRT$) 

6780  IF  IBSTA%  <  0  THEN  GOSUB  4700 

6790  J=0:FOR  1=1  TO  500 :J=J+I : NEXT  I    'Program  delay 

6800  WRT$  =  "Bl" 

6810  CALL  IBWRT  (DVM%,WRT$) 

6820  IF  IBSTA%  <  0  THEN  GOSUB  4700 

683  0  RETURN 

6840  » 

6850  'Subprogram  takes  meter  reading  and  turns  OFFSET 

off 

6860  RD$  =  SPACE$(20) 
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6870-7280 

687  0  CALL  IBRD  (DVM%,RD$) 

6880  IF  IBSTA%  <  0  THEN  GOSUB  4700 

6890  WRT$  =  "BO" 

6900  CALL  IBWRT  (DVM%,WRT$) 

6910  IF  IBSTA%  <  0  THEN  GOSUB  4700 

692  0  RETURN 

6930    ' 

694  0  REM    SUBROUTINE  -  ADD/DELETE/REPLACE  STRAIN  GAGES 

6950    • 

6960    'Construct  option  box 

6970  SCREEN  0 , 1, 0 , 3 : COLOR  7 , 0 : CLS 

6980  COLOR  2 , 7 : K=8 : J=25 : L=32 :M=9 : IC=7 : GOSUB  3040 

6990  COLOR  0 , 7 : LOCATE  10, 27: PRINT  "Make  a  selection:" 

7000  LOCATE  12 ,32: PRINT  "1.   ADD  strain  gage" 

7010  LOCATE  13 ,32: PRINT  "2.   DELETE  strain  gage" 

7  02  0  LOCATE  14, 32: PRINT  "3.   REPLACE  strain  gage" 

7  03  0  LOCATE  15, 32: PRINT  "4.   Return  to  main  menu" 

7040    ■ 

7050    'Read  in  all  stored  strain  gage  data 

7060  OPEN  "STRAIN.DAT"  FOR  INPUT  AS  #1 

7070  INPUT  #1,D1$,N$ 

7080  FOR  N=l  TO  150 

7090       INPUT  #1,I,R(I) ,GF(I) 

7100  NEXT  N 

7110  CLOSE  #1 

7120    ' 

7130    'Make  selection 

7140  SCREEN  0,1,0,0 

7150  LOCATE  16, 26: INPUT  "",A 

7160  IF  A=l  THEN  GOSUB  7300  ELSE  IF  A=2  THEN  GOSUB  7730 
ELSE  IF  A=3  THEN  GOSUB  7810  ELSE  IF  A=4  GOTO 
2060  ELSE  SCREEN  0 , 1, 1, 1: LOCATE  17,32: 
SOUND  1000, 15: PRINT  "Select  1,2,3  or  41": 
GOTO  7150 

7170    ' 

7180    'Write  to  storage  all  strain  gage  data 

7190  IF  D$=""  THEN  D$=D1$ 

7200  OPEN  "STRAIN.DAT"  FOR  OUTPUT  AS  #1 

7210  WRITE  #1,D$,N$ 

7220  FOR  N=l  TO  150 

7230       WRITE  #1,N,R(N) ,GF (N) 

7240  NEXT  N 

7250  CLOSE  #1 

7260    ' 

7270    'Return  to  the  selection  menu 

7280  COLOR  7 , 0 : CLS : GOTO  6940 
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7290-7660 

7290    ' 

7300    'ADD  strain  gage  subroutine 

7310   SCREEN  0,1,0,3 

7320   COLOR  7 , 0 : CLS 

7330    ' 

7340    'Search  for  the  open  slots  on  the  strain  gage  panel 

7350   C=0 

7360   FOR  N=l  TO  150 

7370       IF  GF(N)  =  0  THEN  C=C+1: ADD(C) =N 

7380   NEXT  N 

7390    ' 

7400    'Construct  table  of  open  board  slots 

7410   COLOR  4,0 

7420   M=CINT(C/4)+l 

7430   K=13  -  CINT(M/2) 

7440   J=2  6:L=28:GOSUB  3040 

7450   C#=0 

7460   COLOR  11,0 

7470   FOR  N=l  TO  M-l 

7480       LOCATE  K+N,30:PRINT  USING  "###" ;ADD (C#+l) : 

LOCATE  K+N,36:PRINT  USING  "###" ;ADD(C#+2) : 
LOCATE  K+N,43:PRINT  USING  "###" ;ADD (C#+3) : 
LOCATE  K+N,49:PRINT  USING  "###" ;ADD(C#+4) 
7490       C#=C#+4 
7500   NEXT  N 
7510   LOCATE  K-2, 27: COLOR  15,0: PRINT  "STRAIN  GAGE  BOARD 

VACANCIES" 
7520  SCREEN  0,1,0,0 
753  0   LOCATE  K+M+2 , 21 : COLOR  12,0: PRINT  "Select  location 

of  new  gage  from  list:  " 

7540    ' 
7550    'Select  new  strain  gage  location  and  verify  it  as 

a  vacancy 
7560   LOCATE  K+M+2 , 61: COLOR  7 , 0 : INPUT  "",NG# 
7570   FOR  N=l  TO  C 

7580       IF  NG#  =  ADD(N)  GOTO  7610 
759  0   NEXT  N 

7600   SOUND  1000,18.2:GOTO  7530 
7610    ' 

762  0    'Enter  the  new  gage's  resistance  and  gage  factor 
7630   CLS: COLOR  9 , 7 : K=12 : J=35 : L=10 :M=2 : IC=7 : GOSUB  3040 
7640   COLOR  11,0: LOCATE  10, 22: PRINT  "Enter  manufacture 

r's  listed  resistance." 
7  650   COLOR  14,0: LOCATE  16, 10: PRINT  "NOTE:   Suggest  you 

run  resistance  update  subprogram  after  " 
7660   LOCATE  17, 10: PRINT  "completion  of  this  subprogram." 
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7670-8030 

7  67  0   COLOR  0,7: LOCATE  13, 38: INPUT  M"/R(NG#) 
7680   COLOR  7 , 0 : CLS 

7690   COLOR  9 , 7 :K=12 : J=35 : L=10 :M=2 : IC=7 :GOSUB  3040 
7700   COLOR  11,0:LOCATE  10, 21: PRINT  "Enter  manufacture 

r's  listed  gage  factor." 
7710   COLOR  0,7: LOCATE  13, 38: INPUT  M",GF(NG#) 
7720   COLOR  7 , 0 : CLS : SCREEN  0, 1, 0, 3 : RETURN 
7730    ' 

7740    'DELETE  strain  gage  subroutine 
7750   COLOR  7 , 0 : CLS 

7760   COLOR  1 , 7 :K=12 : J=37 : L=6 :M=2 : IC=7 : GOSUB  3040 
7770   COLOR  11,0: LOCATE  10, 23: PRINT  "Enter  strain  gage 

number  deleted:" 
7780   COLOR  0 , 7 : LOCATE  13, 39: INPUT  "",DG# 
7790   IF  DG#<1  OR  DG#>150  THEN  SOUND  1000, 18 . 2 : COLOR  7: 

LOCATE  13,  38:  PRINT  "     "-.GOTO  7780 
7800   SCREEN  0 , 1, 0 , 3 :R(DG#) =0 :GF (DG#) =0 :RETURN 
7810    ' 

7820    'REPLACE  strain  gage  subroutine 
78  3  0   COLOR  7 , 0 : CLS 

7840   COLOR  1, 7 :K=12 : J=37 : L=6 :M=2 : IC=7 :GOSUB  3040 
7850   COLOR  11,0: LOCATE  10, 22: PRINT  "Enter  strain  gage 

number  replaced:" 
7860   COLOR  0 , 7 : LOCATE  13, 39: INPUT  "",RPG# 
7870   IF  RPG#<1  OR  RPG#>150  THEN  SOUND  1000 , 18 . 2 : COLOR  7: 

LOCATE  13, 38: PRINT  "     ":GOTO  78  60 
7880   COLOR  7 , 0 : CLS 
7890   COLOR  11,0: LOCATE  10, 9: PRINT  "Enter  replacement 

strain  gage  manufacturer's  listed  resistance:" 
7900   COLOR  1,7:K=12:J=35:L=10:M=2:IC=7:GOSUB  3040 
7910   COLOR  14,0: LOCATE  16, 10: PRINT  "NOTE:   Suggest  you 

run  resistance  update  subprogram  after  " 
7920   LOCATE  17, 10: PRINT  "completion  of  this  subprogram." 

793  0   COLOR  0 , 7 : LOCATE  13, 37: INPUT  "",R(RPG#) 

794  0   COLOR  7,0: CLS 

7950  COLOR  9 , 7 : K=12 : J=35 : L=10 :M=2 : IC=7 :GOSUB  3040 

7960  COLOR  11,0: LOCATE  10, 21: PRINT  "Enter  manufacture 

r's  listed  gage  factor." 

7970  COLOR  0 , 7 : LOCATE  13,38:INPUT  "",GF(RPG#) 

7980  COLOR  7 , 0 : CLS : SCREEN  0, 1, 0 , 3 :RETURN 

7990  LFLAG=0 

8  0  00  OPEN  "DIS-FLAG.DAT"  FOR  OUTPUT  AS  #1 
8010  WRITE  #1,  LFLAG 

8020   CLOSE  #1 

8030   SYSTEM: STOP: END 
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1000-1370 

THESIS  PROJECT 


REM 
i 


Advisor: 

Prof.  Edward  M.  WU 


MAIN  PROGRAM  -  GPIB-PC  HANDLER  STATEMENTS 


CLEAR    ,593  00! 

IBINIT1  =  59300! 

IBINIT2  =  IBINIT1  +  3 

BLOAD  "bib.m",IBINITl 

CALL  IBINIT1 (IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, 
IBPPC, IBBNA, IBONL, IBRSC, IBSRE, IBRSV, IBPAD, 
IBSAD, IBIST, IBDMA, IBEOS , IBTMO, IBEOT, IBRDF, 
IBWRTF) 

CALL  IBINIT2 (IBGTS , IBCAC, IBWAIT, IBPOKE, IBWRT, 

IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, IBSTOP, IBRPP, 
IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI , IBRDIA, 
IBWRTIA, IBSTA% , IBERR% , IBCNT% ) 


i 

REM 
i 


MAIN  PROGRAM-COVER  SHEET  PRINT  TO  SCREEN 


PRINT  "~L=BACKKEY/" 

PRINT  "~K={BACK} , KEYFIX,NOESC,NOMOVE/" 

KEY  OFF: SCREEN  1,0: COLOR  1,0 

DEF  SEG  =  &HB800 

BLOAD  "C:P2WING.DRW",0 

DEF  SEG 

ON  TIMER  (5)  GOSUB  13  00 

TIMER  ON 

WHILE  T=0 

TX=1 

WEND 

TIMER  OFF :GOTO  1320 

T=l 

RETURN 

SCREEN  2,0: SCREEN  0,1: KEY  OFF 

SCREEN  0,1, 2, 2: COLOR  29 , 0 : CLS : LOCATE  13,37: 

PRINT  "STANDBY" 
i 

REM    MAIN  PROGRAM- INITIAL  ASSIGNMENTS, 

DIMENSIONS  AND  SETUP 

i 

DEFINT  A 
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1380-1800 


1380 

1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 

1790 
1800 


DIM  D ( 12 , 5) , R(12 ) , G ( 12 ) , CF ( 12 ) , ARRAY ( 3 ) , RESULTS ( 12 ) 

,RR(150) ,GF(150) 
OPEN  "DIS-FLAG.DAT"  FOR  INPUT  AS  #3 
INPUT  #3,  NFLAG 
CLOSE  #3 

OPEN  "DIS-FLAG.DAT"  FOR  OUTPUT  AS  #3 
LFLAG=0 

WRITE  #3,  LFLAG 
CLOSE  #3 

OPEN  "CALIBRAT.DAT"  FOR  INPUT  AS  #1 
FOR  N=l  TO  12 

INPUT  #1,M,G(N) ,CF(N) 
NEXT  N 
CLOSE  #1 

OPEN  "STRAIN.DAT"  FOR  INPUT  AS  #2 
INPUT  #2,  D1$,N1$ 
FOR  N=l  TO  150 

INPUT  #2,I,RR(N) ,GF(N) 

NEXT  N 

CLOSE  #2 

IF  NFLAG=1  GOTO  1740 
i 


REM    MAIN 
RANGE, 


PROGRAM-DVM  CONTROL:  CLEAR,  FUNCTION, 
OFFSET 


BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 


DVM1" 

DVM2" 

DVM3" 

DVM4" 

DVM5" 

DVM6" 

DVM7" 

DVM8" 

DVM9" 

DVM10" 

DVM11" 

DVM12" 


M=l 

M=2 

M=3 

M=4 

M=5 

M=6 

M=7 

M=8 

M=9 

:  M= 

:  M= 

:  M= 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 

10: 

11: 


3020 
3020 
3020 
3020 
3020 
3020 
3020 
3020 
3020 
GOSUB  3020 
GOSUB  3020 


12:  GOSUB  3020 


i 

REM 
i 


MAIN  PROGRAM-DVM  READ 


PRINT  "~L=BACKKEY/" 

PRINT  "~K={BACK},KEYFIX,NOESC,NOMOVE/" 

SCREEN  0,1,2,2:COLOR  2  0, 0 : CLS : LOCATE  13,37 

PRINT  "STANDBY" 
SCREEN  0,1,0,2 
COLOR  14 , 4 : CLS : COLOR  1,7 
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1810-2200 


1810 
1820 
1830 

1840 

1850 
1860 
1870 

1880 

1890 
1900 
1910 
1920 

1930 
1940 

1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


K=ll:J=8:L=65:M=3:IC=7:GOSUB  3650 

COLOR  0,7 

LOCATE  12 ,10: PRINT  "When  the  wing  is  properly 

loaded,  enter  load  applied  and  <CR>." 
LOCATE  13, 12: PRINT  "NOTE:   DVM  readings  will  be 

taken  immediately  after  <CR>." 
COLOR  2,7 

K=16 : J=3 6 : L=10 : M=2 : IC=7 : GOSUB  3  650 
COLOR  7, 4: LOCATE  2  0, 18: PRINT  "Enter  0  when  ready 

to  terminate  this  program." 
COLOR  0,7: LOCATE  17, 43: PRINT  "LB.": SCREEN  0,1,0,0: 

LOCATE  17, 38: INPUT  "",XLOAD 
IF  XLOAD  =  0  GOTO  2890 
FOR  N=l  TO  5 

COLOR  10,1+N:CLS 

LOCATE  11, 23: PRINT  "The  program  is  reading  all 
twelve  DVMs" 

COLOR  31,N+1: LOCATE  13, 38: PRINT  "PASS  ";N 


COLOR  15: LOCATE  15,25 
scanned  in  rack." 


PRINT  "NOTE:  DVMs  being 


BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
BDNAME$ 
NEXT  N 


"DVM1" 
"DVM2" 
"DVM3" 
"DVM4" 
"DVM5" 
"DVM6" 
"DVM7" 
"DVM8" 
"DVM9" 
"DVM10 
"DVM11 
"DVM12 


M=l 

M=2 

M=3 

M=4 

M=5 

M=6 

M=7 

M=8 

M=9 
M=10: 
M=ll: 


i . 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 
GOSUB 
GOSUB 


3290 
3290 
3290 
3290 
3290 
3290 
3290 
3290 
3290 


':  M=12:  GOSUB 


3290 
3290 
3290 


i 

REM 
i 


MAIN  PROGRAM-AVERAGE  DVM  READINGS 


FOR  M=l  TO  12 

S=0 

FOR  N=l  TO  5 

S=S+D(M,N) 

NEXT  N 

R(M)=S/5! 

NEXT  M 
i 

REM    MAIN  PROGRAM-PRINT  DVM  MEASUREMENT  SUMMARY 
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2210-2610 

2210  SCREEN  0,1,0,2 

2220  COLOR  7 , 0 : CLS 

22  3  0  COLOR  9 :K=2 : J=14 : L=52 :M=2  0 :GOSUB  3  650 

2240  K=14:J=66:L=6:GOSUB  3560 

2250  K=14:J=66:L=4:GOSUB  3560 

2260  K=4:J=22:L=22:GOSUB  3470 

2270  K=4:J=22:L=32:GOSUB  3470 

2280  K=4:J=22:L=44:GOSUB  3470 

2290  K=4:J=22:L=55:GOSUB  3470 

2300  LOCATE  6,22:PRINT  CHR$(206) 

2310  LOCATE  6,32:PRINT  CHR$(206) 

2320  LOCATE  6, 44: PRINT  CHR$(206) 

2330  LOCATE  6, 55: PRINT  CHR$(206) 

234  0  COLOR  13: LOCATE  3, 16: PRINT  USING  "####" ;XLOAD; : 

PRINT  "  lb  LOAD  MEASUREMENT  SUMMARY  (strain-m 

in/ in) » 

2  350  COLOR  11: LOCATE  5, 17: PRINT  "DVM" : LOCATE  5,25: 

PRINT  MGAGE#" 

2  3  60  LOCATE  5, 37: PRINT  "mV": LOCATE  5, 48: PRINT  "C.F." 

2370  LOCATE  5, 60: PRINT  CHR$(238) 

2380  FOR  N=l  TO  12 
2390       M  =  0 
2400       IF  N>3  THEN  M=l 
2410       IF  N>6  THEN  M=2 

242  0       IF  N>9  THEN  M=3 

243  0       COLOR  7 : LOCATE  6+N+M, 18 : PRINT  USING  "##"  ;N 
2440       LOCATE  6+N+M, 26 : PRINT  USING  »###», «G(N) 
2450       LOCATE  6+N+M,  35  :  PRINT  USING  »###.###"  ;R  (N) 
24  60       LOCATE  6+N+M, 47 : PRINT  USING  "#.####» ;CF (N) 
2470       RESULTS(N)  =CF(N)*R(N) 

2480  COLOR  15 

2490  LOCATE  6+N+M, 57 : PRINT  USING  "###.###"; RESULTS (N) 

2500  NEXT  N 

2510  IF  GF(G(1) )=2.04  THEN  G$="A3" 

2520  IF  GF(G(1) )<>1.95  AND  GF (G(l) ) <>1 . 92  GOTO  2650 

253  0  M  =  0:L=0: COLOR  15 

2540  FOR  N=l  TO  12 

2550  IF  N=4  THEN  M=1:L=0 

2560  IF  N=7  THEN  M=2:L=0 

257  0  IF  N=10  THEN  M=3:L=0 

2580  L=L+1 

2590  IF  L=l  THEN  RESULTS (N) =RESULTS (N) +. 005*RESULTS ( 

N+2) 

2  600  IF  L=3  THEN  RESULTS (N) =RESULTS (N) +. 005*RESULTS ( 

N-2) 

2610  IF  L=2  THEN  RESULTS (N)  =  (RESULTS (N)  *  .995)  + 
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(.005  *  (RESLUTS(N-l)  +  RESULTS (N+l) ) ) 

2  62  0       LOCATE  6+N+M, 57 : PRINT  USING  "###.###" /RESULTS (N) 

2630   NEXT  N 

2  64  0   LOCATE  23/6:PRINT  "Strain  measurement  includes 
poisson  ratio  correction  for  wire  gages." 

2  65  0   COLOR  26: LOCATE  12 ,70: PRINT  "PRINT" 

2  660   LOCATE  13, 72: PRINT  "IN" 

2670   LOCATE  14 ,69: PRINT  "PROGRESS" 

2680   SCREEN  0,1,0,0 

2690    ' 

2700    REM    MAIN  PROGRAM-PRINT  THE  DVM  OUTPUT 

2710    ' 

2720   D$=DATE$ 

2730   LPRINT  TAB(30) ;D$ 

2740   GOSUB  3980 

2750   LPRINT  CHR$(13) 

2760   COLOR  26: LOCATE  12, 70: PRINT  "      " 

2770   LOCATE  13, 72: PRINT  "   " 

2780   LOCATE  14, 69: PRINT  "         " 

279  0   COLOR  4 : LOCATE  7, 68: PRINT  "SELECT:" 

2800   LOCATE  9, 69: PRINT  "1)  Obtain" : LOCATE  10,72: 
PRINT  "new  load" 

2810   LOCATE  11, 72: PRINT  "data." 

2820   IF  G$="A3"  THEN  LOCATE  12 , 69 : PRINT  "2)  Exit": 

LOCATE  13, 72: PRINT  "program. ": LOCATE  14,69: 
INPUT  "",M:IF  M=l  GOTO  1740  ELSE  IF  M=2  THEN 
CLS: CHAIN  "P2V-CAL",803  0  ELSE  SOUND  100,3: 
GOTO  2810 

283  0   LOCATE  12, 69: PRINT  "2)  Analyse" : LOCATE  13,72: 

PRINT  "rosette" 

284  0   LOCATE  14, 72: PRINT  "data. ": LOCATE  15,69: 

PRINT  "3)  Exit" 
2850   LOCATE  16, 72: PRINT  "program." 
28  60   LOCATE  17, 69: INPUT  "",M 
2870   IF  M=l  GOTO  1740  ELSE  IF  M=2  GOTO  4310  ELSE  IF  M=3 

THEN  CHAIN  "P2V-CAL" , 8030  ELSE  SOUND  100,3: 

GOTO  2850 
2880    ■ 

2890    REM   MAIN  PROGRAM-TERMINATE  EXECUTION 
2900    ' 

2910   SCREEN  0,1,0,0 
2920   COLOR  7,0 
2930   CLS 

2940   LOCATE  12,22:SOUND  1000,2:SOUND  1500,2:SOUND  2000,2 
2950   PRINT  "Program  run  completed." 
2960   CLS: CHAIN  "P2V-CAL" , 8030 
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2970    • 

2980  END 

2990    ' 

3  000  REM    SUBROUTINE-DVM  CONTROL:  CLEAR,  FUNCTION, 

RANGE,  OFFSET 
3010    ' 

3  02  0  CALL  IBFIND  (BDNAME$ , DVM%) 

3030  IF  DVM%  <  0  THEN  E=l:  GOSUB  4110 

3  04  0  CALL  IBCLR  (DVM%) 

3050  IF  IBSTA%  <  0  THEN  E=2 :  GOSUB  4160 

3060  WRT$  =  "F1R0" 

3  07  0  CALL  IBWRT  (DVM%,WRT$) 

3080  IF  IBSTA%  <  0  THEN  E=3 :  GOSUB  4160 

3090  J=0  'Program  delay 

3100  FOR  1=1  TO  100      'Program  delay 
3110      J=J+I  'Program  delay 

3120  NEXT  I  'Program  delay 

3130  IF  HOI  GOTO  3220 

3140  SCREEN  0 , 1, 0 , 2 : COLOR  2 , 1 : CLS : COLOR  4,7 

3150  K=12:J=11:L=60:M=3:IC=7: GOSUB  3650 

3160  LOCATE  13, 13: COLOR  0,7: PRINT  "Balance  the 

Wheatstone  bridge  for  all  strain  gages,  then" 

3170  LOCATE  14, 13: COLOR  0,7 

3180  PRINT  "enter  SPACEBAR  when  ready  to  set  the  OFFSET 

for  all  DVMs." '.SCREEN  0,1,0,0 

3190  Z$  =  INKEY$ 

3200  IF  Z$  <>  CHR$(32)  GOTO  3190 

3  210  COLOR  2 3,1: LOCATE  2  0, 37: PRINT  "STANDBY" 

3220  WRT$  =  "Bl" 

32  3  0  CALL  IBWRT  (DVM%,WRT$) 

3240  IF  IBSTA%  <  0  THEN  E=4 :  GOSUB  4160 

3  250  RETURN 
3260    ' 

3270  REM    SUBROUTINE -READ  DVM 
3280    ' 

3290  CALL  IBFIND  (BDNAME$ , DVM%) 

3300  IF  DVM%  <  0  THEN  E=5:GOSUB  4110 

3310  WRT$  =  "T3" 

3320  CALL  IBWRT  (DVM%,WRT$) 

3330  IF  IBSTA%  <  0  THEN  E=6:  GOSUB  4160 

3  34  0  CALL  IBTRG  (DVM%) 

3350  IF  IBSTA%  <  0  THEN  E=8 :  GOSUB  4160 

3360  RD$  =  SPACE$(16) 

3  37  0  CALL  IBRD  (DVM%,RD$) 

3380  IF  IBSTA%  <  0  THEN  E=12 :  GOSUB  4160 

3390  B#  =  VAL(RD$)  *  1000! 
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3400   D(M,N)  =  B# 

3410   IF  N<>5  GOTO  3450 

3420   WRT$  =  "TO" 

3430   CALL  IBWRT  (DVM%,WRT$) 

3440   IF  IBSTA%  <  0  THEN  E=7 :  GOSUB  4160 

3  4  50   RETURN 

3460    • 

3470    REM    SUBPROGRAM  -  PRINT  A  COLUMN  TO  SCREEN 

(K-START,  J-END,  L-COLUMN) 
3480    ' 

3490   FOR  I=K+1  TO  J-l 
3  500       LOCATE  I,L 
3510       PRINT  CHR$(186) 
3520   NEXT  I 
3530   LOCATE  K,L:PRINT  CHR$ (203) : LOCATE  J,L:PRINT 

CHR$(2  02) 
3  54  0   RETURN 
3550    ' 
3  560    REM    SUBPROGRAM  -  PRINT  A  ROW  TO  SCREEN 

(K-START,  J-END,  L-ROW) 
3570    ' 

3580   FOR  I=K+1  TO  J-l 
3590       LOCATE  L,I 
3600       PRINT  CHR$(205) 
3610   NEXT  I 
3620   LOCATE  L,K:PRINT  CHR$ (204) : LOCATE  L,J:PRINT 

CHR$(185) 
3  63  0   RETURN 
3640    ' 
3  650    REM    SUBPROGRAM  -  PRINT  A  BOX  TO  SCREEN 

(K,J-UPPERLEFT  CORNER,  L-LENGTH, 

M-HEIGHT,  IC-INTERIOR  COLOR. . 

DEFAULT  BLACK  0) 
3660    • 

3670   LOCATE  K, J: PRINT  CHR$(201) 
3680   FOR  I=J+1  TO  J+(L-1) 
3  690       LOCATE  K,I 
3700       PRINT  CHR$(205) 
3710   NEXT  I 

372  0   LOCATE  K,J+L: PRINT  CHR$(187) 

373  0   FOR  I=K+1  TO  K+(M-1) 

374  0       LOCATE  I, J 
3750       PRINT  CHR$(186) 
3760   NEXT  I 

3770   LOCATE  K+M,J:PRINT  CHR$(200) 
3780   FOR  I=J+1  TO  J+(L-1) 
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3  79  0       LOCATE  K+M, I 
3800       PRINT  CHR$(205) 

3810  NEXT  I 

382  0  LOCATE  K+M, J+L: PRINT  CHR$(188) 

383  0  FOR  I=K+1  TO  K+(M-1) 

384  0       LOCATE  I , L+ J 

3  850       PRINT  CHR$(18  6) 

3860  NEXT  I 

3870  IF  IC=0  GOTO  3960 

3  88  0  COLOR  IC 

3890  FOR  I=K+1  TO  K+M-l 

3900       FOR  N=J+1  TO  J+L-l 

3  910  LOCATE  I, N: PRINT  CHR$(219) 

3920       NEXT  N 

3930  NEXT  I 

3940  COLOR  7,0 

3950  IC=0 

3  960  RETURN 

3970    ' 

398  0    REM    SUBROUTINE-PRINT  SCREEN 

3990    ■ 

4000  A=0: RESTORE 

4010  DATA  &HCD55  :REM  55H  Push  BP 

4020  DATA  &H5D05  :REM  CD05H  INT  5 

4030  :REM  5DH  POP  BP 

4040  DATA  &H90CB  :REM  9 OH  NOP 

4050  FOR  1=1  TO  3:  READ  ARRAY(I):  NEXT  I 

4060  SUBRT  =  VARPTR (ARRAY (1) ) :  CALL  SUBRT 

4070  RETURN 

4080    • 

4090    REM    ERROR  SUBROUTINE  LOCATIONS 

4100    ' 

4110    '       A  routine  at  this  location  would  notify 

4120    '       you  that  the  IBFIND  call  failed,  and 

4130    '       refer  you  to  the  handler  software 

414  0    ■       configuration  procedures. 

4150  PRINT  "IBFIND  ERROR"  :  PRINT  "E=  ";E:  PRINT  "DVM  "; 

M:  STOP 
4160    '       An  error  checking  routine  at  this 
4170    '       location  would,  among  other  things, 
4180    •       check  IBERR  to  determine  the  exact 
4190    '       cause  of  the  error  condition  and  then 
4200    '       take  action  appropriate  to  the 
4210    '       application.   For  errors  during  data 
422  0    '       transfers,  IBCNT  may  be  examined  to 
42  3  0    ■       determine  the  actual  number  of  bytes 
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4240    '       transferred. 

4250   PRINT  "GPIB  ERROR"  :  PRINT  "E=" ;E:  STOP 

4260    '       A  routine  at  this  location  would  analyze 

427  0    •       the  fault  code  returned  in  the  DVM's 

4280    ■       status  byte  and  take  appropriate  action. 

4290   PRINT  "DVM  ERROR"  :  PRINT  "E=  ";E: PRINT  "DVM  ";M: 

STOP 
4300   END 
4  310   REM   Portion  of  program  which  does  the  rosette 

analysis 
4320    ' 

4330   SCREEN  0 , 1 , 0 , 0 : COLOR  7 : CLS 
4  34  0   PRINT  "~K={BACK}/" 
4350   SCREEN  2 

4  3  60   KEY  OFF: SCREEN  1 , 0 : CLS 
4370   COLOR  1,0 

4380   IF  C%=0  THEN  DIM  PIX# (700) : C%=1 
4390   DEF  SEG 

44  00   PIX.PTR=VARPTR(PIX#(0)  ) 
4410   BLOAD  "C : ROSETTE. PIX" , PIX. PTR 
4420   VIEW  (70,39)-(250,159) , ,3 
4430   PUT  (40,5) , PIX# 
4440   ON  TIMER(3)  GOSUB  4510 
4450   TIMER  ON:T=0 
4460   WHILE  T=0 
4470       SUM  =  0 
4480   WEND 
4490   VIEW 
4500   GOTO  4530 
4510   T=l 
4  52  0   RETURN 

4530   SCREEN  1,0: COLOR  1,0: CLS 
4540   DEF  SEG 

4  550   PIX.PTR=VARPTR(PIX#(0) ) 
4  560   BLOAD  "C: ANALIZE2 . PIX" , PIX. PTR 
4570   PUT  (18,1),PIX# 
4580   WHILE  GF(G(1) )=2.09 
4590      LOCATE  15, 3: PRINT  USING  "####" ;XLOAD; : 

PRINT  "  LB.  LOAD" 
4600       LOCATE  15,18:PRINT  CHR$ (214) ;CHR$ (196) ; 

"A     B     C  ";CHR$(196) ;CHR$(183) 
4  610       LOCATE  16, 6: PRINT  "SELECT" : LOCATE  16,18: 

PRINT  CHR$(186);"  ";: PRINT  USING  "###"; 

G(l);: PRINT  USING  »#####" ;G(5) ; : 

PRINT  USING  "#####";G(9) ;: PRINT  "  " ; 

CHR$(18  6) 
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4620       LOCATE  17 , 6 : PRINT  "ROSETTE" : LOCATE  17,18: 

PRINT  CHR$(186);"  ";: PRINT  USING  "###"; 

G(2);:PRINT  USING  ■■#####"  ;G  (6)  ;  : 

PRINT  USING  "#####" ;G (10) ;: PRINT  "  "; 

CHR$(186) 
4630       LOCATE  18,18:PRINT  CHR$(186);"  ";: PRINT  USING 

"###";G(3) ;:PRINT  USING  "#####» ;G(7) ; : 

PRINT  USING  "#####";G(11) ;: PRINT  "  "; 

CHR$(18  6) 
4640       LOCATE  19,18:PRINT  CHR$(186);"  ";: PRINT  USING 

"###";G(4) ;:PRINT  USING  "#####» ;G(8) ; : 

PRINT  USING  "#####" ;G( 12) ;: PRINT  "  " ; 

CHR$(18  6) 
4650       LOCATE  20,18:PRINT  CHR$ (211) ;CHR$ (196) ; 

CHR$(196) ;CHR$(196) ;CHR$(196) ;CHR$(196) ; 

"GAGES" ;CHR$ (196) ;CHR$(196) ;CHR$(196) ; 

CHR$(196) ;CHR$(196) ;CHR$(189) 
4660       VIEW  (5,163)-(314,187) , ,2 

4670      LOCATE  22, 7: PRINT  "For  rosette  ENTER  A,B  OR  C." 
4680       IF  F$o"Y"  THEN  LOCATE  23, 4:  PRINT  "ENTER  L  to 

return  to  Load  program."  ELSE  LOCATE  2  3,4: 

PRINT  "ENTER  X  to  end." 
4690       LOCATE  23 ,38: INPUT  "",M$ 
4700       IF  M$="X"  OR  M$="x"  THEN  CLS: SCREEN  2: SCREEN  0: 

LFLAG=0:OPEN  "DIS-FLAG. DAT"  FOR  OUTPUT  AS 

#2: WRITE  #2,LFLAG:CLOSE  #2: CHAIN 

"P2V-CAL",803  0 
4710       IF  M$  =  "L"  OR  M$  =  "1"  THEN  CLS:GOSUB  4940 
4720       IF  M$="A"  OR  M$="a"  THEN  GN1=1:GN2=2 :GN3=3 : 

GN4=4:GAGE=G(1) :GOSUB  4940 
4730       IF  M$="B"  OR  M$="b"  THEN  GN1=5 :GN2=6 :GN3=7 : 

GN4=8:GAGE=G(5) :GOSUB  4940 
4740       IF  M$="C"  OR  M$="c"  THEN  GN1=9 :GN2=10 :GN3=11: 

GN4=12:GAGE=G(9) :GOSUB  4940 
4750       SOUND  100,3:GOTO  4690 
4760   WEND 
477  0   LOCATE  15, 3: PRINT  USING  "####" ;XLOAD; : PRINT  "  LB. 

LOAD" 
4780   LOCATE  16,18:PRINT  CHR$ (214) ;CHR$ (196) ; "  A     B 

C     D";CHR$(196) ;CHR$(183) 
4790   LOCATE  17, 5: PRINT  "SELECT" : LOCATE  17,18: 

PRINT  CHR$ (186) ;: PRINT  USING  "###" ;G (1) ; : 
PRINT  USING  »#####" ;G(4) ;: PRINT  USING  »#####"; 
G (7);: PRINT  USING  "#####" ;G (10) ;: PRINT  "  "; 
CHR$(186) 
4800   LOCATE  18, 5: PRINT  "ROSETTE" : LOCATE  18,18: 
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4800-5050 


ii  ii  . 

"###" 
USING 


PRINT  CHR$ (186) ;: PRINT  USING  "###" ;G (2) ; : 

PRINT  USING  "#####" ;G( 5) ;: PRINT  USING  "##### 

G(8);:PRINT  USING  "#####" ;G(11) ;: PRINT 

CHR$(186) 
LOCATE  19,18:PRINT  CHR$ (186) ;: PRINT  USING 

G(3);:PRINT  USING  "#####"  ;G(6)  ;  :PRINT  us>i 

••#####";G(9)  ;:PRINT  USING  "#####"  ;G  ( 12)  ;  : 

PRINT  "  ";CHR$(186) 
LOCATE  20,18:PRINT  CHR$ (211) ;CHR$ (196) ;CHR$ (196) 

CHR$(196) ;CHR$(196) ;CHR$(196) ;CHR$(196) ; 

CHR$(196) ; "GAGES" ;CHR$ (196) ;CHR$(196) ; 

CHR$(196) ;CHR$(196) ;CHR$(196) ;CHR$(196) ; 

CHR$(196) ;CHR$(189) 
VIEW  (5,163)-(314,187) , ,2 

LOCATE  2 2, 7: PRINT  "For  rosette  ENTER  A,B,C  or  D. 
IF  F$o"Y"  THEN  LOCATE  23, 4: PRINT  "ENTER  L  to 

return  to  Load  program."  ELSE  LOCATE  23,4: 

PRINT  "ENTER  X  to  end." 
LOCATE  2 3, 38: INPUT  ""/M$ 
IF  M$="X"  OR  M$="x"  THEN  CLS: SCREEN  2: SCREEN  0: 

LFLAG=0:OPEN  "DIS-FLAG. DAT"  FOR  OUTPUT  AS  #2 

WRITE  #2,LFLAG:CLOSE  #2: CHAIN  "P2V-CAL" , 8  03  0 

'*  =  "L"  OR  M$  =  "1"  THEN  CLS:GOSUB  494  0 

THEN 
4940 
THEN 
4940 
THEN 


IF 
IF 


M$  = 

M$="A"  OR  M$="a" 

GAGE=G(1) :GOSUB 

4900   IF  M$="B"  OR  M$="b" 

GAGE=G(4) :GOSUB 

4910   IF  M$="C"  OR  M$="C" 

GAGE=G(7) :GOSUB  4940 
4920   IF  M$="D"  OR  M$="d"  THEN 
GAGE=G(10) :GOSUB  4940 
SOUND  100,3:GOTO  4860 


GN1=1:GN2=2:GN3=3: 
GN1=4:GN2=5:GN3=6: 
GN1=7 : GN2=8 : GN3=9 : 
GN1=10 : GN2=11 : GN3=12 : 


GN2, 
GN3, 


GN3, 
GAGE 


i 

OPEN  "DISPLAY.DAT"  FOR  OUTPUT  AS  #1 

WRITE  #1,  GF(G(1)),  XLOAD 

IF  GF(G(1))  =  2.09  THEN  WRITE  #1,  GN1, 

GN4,  GAGE  ELSE  WRITE  #1,  GN1,  GN2 , 
FOR  1=1  TO  12 

WRITE  #1,  RESULTS(I),  G(I) 
NEXT  I 
CLOSE  #1 
IF  M$="L"  OR  M$="l"  THEN  CLS : SCREEN  2: SCREEN  0: 

IF  NFLAG=1  THEN  RETURN  1000  ELSE  RETURN  174  0 
SHELL  "ANALIZE.BAT" 
NFLAG  =  1 
OPEN  "DIS-FLAG. DAT"  FOR  OUTPUT  AS  #3 


76 


09-16-86  15:14:26   c:p2v-load.bas  pct   12 

Wed  09-17-86  16:16:09  0|   Jj 


5060-5080 


5060   WRITE  #3,  NFLAG 
5070   CLOSE  #3 
5080   RETURN  4330 
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1000-1370 

1000   REM   This  is  a  compiled  executable  BASIC  program 
which  does  the 

1010   REM   high  resolution  display  portion  of  the 
rosette  analysis 

1020    « 

1030    'Variable  declarations 

1040   DIM   RESULTS(12),  G(12) 

1050    • 

1060    'Retrieve  data  to  be  displayed  from  the  hard  disk 

1070   OPEN  "DISPLAY.DAT"  FOR  INPUT  AS  #1 

1080   INPUT  #1,  GF,  XLOAD 

109  0   IF  GF=2.09  THEN  INPUT  #1,  GN1,  GN2 ,  GN3 ,  GN4 ,  GAGE 
ELSE  INPUT  #1,  GN1,  GN2 ,  GN3 ,  GAGE 

1100   FOR  1=1  TO  12 

1110       INPUT  #1,  RESULTS(I),  G(I) 

1120   NEXT  I 

1130   CLOSE  #1 

1140    ' 

1150   KEY  OFF 

1160    ' 

1170    'Calculations  for  the  older  AR-7-2  wire  rosette 

1180   WHILE  (GF=1.92  OR  GF=1.95)  AND  NSTOP=0 

1190       EX  =  RESULTS (GN1) :EY  =  RESULTS(GN3) 

12  00       IF  GAGE<17  OR  GAGE=24  OR  GAGE=3  0  OR  GAGE=3  3  OR 

GAGE=85  OR  GAGE=38  OR  GAGE=88  OR  GAGE=91 
OR  GAGE=41  OR  GAGE=7  3  OR  GAGE=7  6  THEN 
EX=RESULTS (GN3 ) : EY=RESULTS (GN1) 

1210       GXY  =  (2!  *  RESULTS (GN2) )  -  (EX  +  EY) 

122  0       IF  GAGE=56  OR  GAGE=59  OR  GAGE=62  OR  GAGE=50 

THEN  GXY=-1!  *  GXY 

1230       ESI  =  (EX  +  EY)/2! 

1240       GMAX  =  SQR((EX  -  EY) A2  +  GXYA2) 

1250       EMAX  =  ESI  +  .5*GMAX 

1260       EMIN  =  ESI  -  .5*GMAX 

1270       PHIP  =  (.5  +  ATN(GXY/(EX  -  EY) ) )  *  57.2958 

1280       NSTOP=l 

129  0   WEND 

1300   NSTOP=0 

1310    ' 

1320    'Calculations  for  the  new  EA-13-250YA  delta  rosette 

1330   WHILE  GF=2.07  AND  NSTOP=0 

1340       EY=RESULTS(GN1) 

1350       GXY= (RESULTS (GN3) -RESULTS (GN2) )/. 8660254 

1360       EX=(RESULTS(GN2)+(.4330127*GXY)-(.25*EY) )/.75 

1370       IF  GAGE=112  THEN  GXY= (RESULTS (GN2) -RESULTS (GN3 ) 

)/. 8660254 :EX= (RESULTS (GN3)+(. 4330127*GXY) - 
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(.25*EY) )/.75 
1380       IF  GAGE=109  THEN  EY=RESULTS (GN2) :GXY= (RESULTS ( 

GN3) -RESULTS (GN1) )/. 8660254 :EX= (RESULTS ( 

GN1)+(.43  3  0127*GXY)-(.25*EY) )/.75 
1390       ESI  =  (EX  +  EY)/2! 
1400       GMAX  =  SQR((EX  -  EY)A2  +  GXYA2) 
1410       EMAX  =  ESI  +  .5*GMAX 
1420       EMIN  =  ESI  -  .5*GMAX 

1430       PHIP  =  (.5  +  ATN(GXY/(EX  -  EY) ) )  *  57.2958 
1440       NSTOP=l 
1450   WEND 
1460   NSTOP  =  0 
1470    ■ 
1480    'Calculation  for  the  new  WA-13-250WF  stacked 

rosette 
1490   WHILE  GF=2.09  AND  NSTOP=0 
1500       EX=RESULTS(GN2) :EY=RESULTS (GN4) 
1510       GXY= (RESULTS (GN3)  -  RESULTS (GN1) )  -  (EX  -  EY) 
1520       IF  GAGE=128  THEN  EX=RESULTS (GN1) :EY=RESULTS ( 

GN3) :GXY= (RESULTS (GN2) -RESULTS (GN4) )-(EX-EY) 
1530       IF  GAGE=124  THEN  EX=RESULTS (GN2) :EY=RESULTS ( 

GN4) :GXY= (RESULTS (GN1) -RESULTS (GN3) )-(EX-EY) 
1540       ESI  =  (EX  +  EY)/2! 
1550       GMAX  =  SQR((EX  -  EY) A2  +  GXYA2) 
1560       EMAX  =  ESI  +  .5*GMAX 
1570       EMIN  =  ESI  -  . 5*GMAX 

1580       PHIP  -  (.5  +  ATN(GXY/(EX  -  EY) ) )  *  57.2958 
1590       NSTOP=l 
1600   WEND 
1610   NSTOP  =  0 
1620    ' 

1630    'Calculation  for  Mohr's  circle  radius 
1640   R  =  .5  *  SQR((EX  -  EY) A2  +  GXYA2) 
1650    ' 

1660    'Construct  the  display  screen 
1670   CLS: SCREEN  9 : COLOR  15 

1680   LINE  (l,306)-(639,306)   'Screen  Dividers 
1690   LINE  (319,0)-(319,306) 
1700   LOCATE  2 , 14 : PRINT  "MOHR'S  CIRCLE" 
1710   LOCATE  2  ,52 '.PRINT  "SURFACE  DEFORMATION" 
172  0   COLOR  9 
1730   LOCATE  23,29:PRINT  CHR$ (232) ; "p=" ;: PRINT  USING 

"####" ;PHIP;:PRINT  CHR$(248) ; 
17  4  0   LOCATE  2 5, 56: PRINT  "Gmax=" ;: PRINT  USING  "##.###"; 

GMAX; 
1750   LOCATE  23, 41: PRINT  CHR$ (238) ; "min=" ;: PRINT  USING 
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"inax=" 


: PRINT  USING 


ii  ii  .  . 


: PRINT 

"###", -G(GN2) ;: PRINT  ",";: 
»###••  ;G(GN3)  ; 

LOCATE  25,1 -.PRINT  "Gages-";: 

"###";G(GN1) 

"###";G(GN2) 

"###";G(GN3) 

"###";G(GN4) 

*  -1 


ii  ii  . 

it  ii  . 

ii  ii . 

/  > 


"##.###";EMIN; 
1760   LOCATE  25,41:PRINT  CHR$(238) 

"##.###";EMAX; 
1770   LOCATE  2  3,  56:  PRINT  "Gxy="  ;:  PRINT  USING  »##.###»  ;GXY; 
1780   LOCATE  23,71:PRINT  CHR$ (238) ; "y=" ;: PRINT  USING 

»  #  #  .  # # #  »  ; EY ; 

1790   LOCATE  25/71:PRINT  CHR$ (238) ; "x=" ;: PRINT  USING 

"##.###";EX; 
1800   LOCATE  23,1: PRINT  USING  "####" ;XLOAD; : PRINT  "  LB 

LOAD" 
1810   LOCATE  23,16:PRINT  CHR$  (238)  ;  "-m  ill/in" 
182  0   LOCATE  1,1: PRINT  DATE$ 
1830   IF  GFO2.09  THEN  LOCATE  25,1:  PRINT  "Gages-";: 

PRINT  USING  "###";G(GN1) 

PRINT  USING 

PRINT  USING 
1840   IF  GF=2.09  THEN 

PRINT  USING  "###";G(GN1) ;: PRINT 

PRINT  USING  "###";G(GN2) ;: PRINT 

PRINT  USING  "###";G(GN3) ; : PRINT 

PRINT  USING 
1850   SCALE  =  R/1.5151515# 
1860   XIS  =  (ESI  *  100!  /  R) 
1870   COLOR  10 

1880   LINE  (5,160)-(315,160)   'X  and  Y  axis 
1890   LINE  (159  +  XIS , 260) - (159  +  XIS, 43) 
1900   LINE  (323,160)-(635,160) 
1910   LINE  (479,27)-(479,260) 
1920   COLOR  2 

1930   LOCATE  13,1:PRINT  CHR$(238)   'Axis  Labels 
1940   LOCATE  3 , 14 : PRINT  "Gxy/2" 
1950   LOCATE  3, 58: PRINT  "Y" 
1960   LOCATE  13, 78: PRINT  "X" 
1970   IF  ABS(EX)<.5  AND  ABS(EY)<.5  AND  ABS(GXY)<.5  THEN 

SMULT=2!  ELSE  SMULT=l! 
198  0   EX  =  SMULT  *  EX:EY  =  SMULT  *  EY:GXY=SMULT  *  GXY 
1990    'Calculations  for  the  element  deformation  shape 
2000   DEX  =  75  *  (EX/2! ) 
2010   DEY  =  61  *  (EY/2!) 
2020   GLE  =  ATN(ABS (GXY/2!) ) 
2  03  0   IF  GXY  <  0  THEN  GLE  =  GLE  *  -1! 
2040   YSLP  =  TAN(1.5707963#  -  GLE)  *  .77272727# 
2050   XSLP  =  TAN(GLE)  *  .77272727# 
2060   XI  =  ((61!  +  DEY)  +  YSLP  *  (75!  +  DEX))/(YSLP  - 

XSLP) 
2070   X2  =  ((61!  +  DEY)  +  YSLP  *  (-75!  -  DEX))/(YSLP  - 
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XSLP) 
2080   Yl  =  (((XSLP  *  YSLP)  *  (75!  +  DEX) )  +  (YSLP  *  (61! 

+  DEY) ) )/(YSLP  -  XSLP) 
2090   Y2  =  (((XSLP  *  YSLP)  *  (-75!  -  DEX))  +  (YSLP  * 

(61!  +  DEY)))/ (YSLP  -  XSLP) 
2100   COLOR  7 

2110   LINE  (404,99)-(554, 221) , ,B 
2120   LOCATE  8, 59: PRINT  ".5" 

213  0   LOCATE  13, 68: PRINT  ".5" 

214  0   COLOR  3 

2150  LOCATE  2 0,56: PRINT  "Unit  Cube" 

2160  LOCATE  21, 49: PRINT  "Isotropic  Strain  Mult=" ; : 

PRINT  USING  "#";SMULT 

2170  COLOR  10 

2180  LINE  (118,284)-(184,284) 

2190  LINE  (118,282)-(118,286) 

2200  LINE  (184,282)-(184,286) 

2  210  COLOR  3 

222  0  LOCATE  2  0, 14: PRINT  USING  ".###"; SCALE ;: PRINT  "  m 

in/in" 

22  3  0  COLOR  12 

2240  LINE  (479+Xl,160-Yl)-(479-X2,160+Y2) , , , &HAAAA 

2250  LINE  (479-X2,160+Y2)-(479-Xl,160+Yl) , , , &HAAAA 

2260  LINE  (479-Xl,160+Yl)-(479+X2,160-Y2) , , , &HAAAA 

2270  LINE  (479+X2,160-Y2)-(479+Xl,160-Yl) , , , &HAAAA 

2280  COLOR  7 

2290    'Calculations  for  the  Mohr's  circle  position 

2300  CIRCLE  (159 , 160) , 100, , , , . 81 

2  310  IF  SMULT=2  THEN  EX  =  EX/2i:EY  =  EY/2!:GXY  =  GXY/2 ! 

2320  PEY  =  ((EY  *  66!)  /  SCALE) 

2330  PEX  =  ((EX  *  66!)  /  SCALE) 

2340  PGXY  =  (((GXY/2!)  *  53.5)  /  SCALE) 

2350  COLOR  12 

2360  LINE  (159  +  XIS  +  PEY, 160) - (159  +  XIS  +  PEY, 160  - 

PGXY) 

2370  LINE  -(159  +  XIS  +  PEX, 160  +  PGXY) 

2380  LINE  -(159  +  XIS  +  PEX, 160) 

2  39  0  COLOR  10 

2400  LINE  (159+XIS+66,158)-(159+XIS+66,162)  'Scale  Marker 

2410  LINE  (157+XIS,107)-(161+XIS,107) 

24  2  0  COLOR  4 : LOCATE  1,23: PRINT  " (Shift/PrtSc)  for 

print,  SPACEBAR  to  return." 

2430  Z$  =  INKEY$ 

2440  IF  Z$  <>  CHR$(32)  GOTO  2430 

24  50  LPRINT  CHR$(13) 

2460  END 
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